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ABSTRACT 


The design of a microprocessor command language, RSCL, 
is discussed. RSCL provides the capability of building 
variable shell environments on a standard microprocessor 
system. These envircnments present a menu driven, screen 
oriented user interface as opposed to the line oriented 
interface of current operating syst2ms. 

The RSCL is a straightforward, easily understandable and 
complete computer pregramming languages. Designed according 
to specific command language guidelines, it allows the user 
to make maximum utility of his skills. 

A prototype implementation and sample program runs are 
included. These illustrate the design features and serve as 
atest platform for future research. 
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A. BACKGROUND 


In the early days of computing it was simply man against the 
primitive operations of the computer. fThere was no need for 
any Command language because programming was done bit by bit 
without complex interfacing. Computer systems consisted of 
Many tubes, a few cable connections, and possibly a periph- 
eral device to display the results (output). The programmers 
of the early days were considered jack of all trades. They 
designed the rudimentary programs, entered them bit by bit 
by re-arranging the cable configurations and should problems 
arise they were the only trained maintenance technicians. 
Mmiaseidyllic situation did not persist for long. 

Advances in computer technology especially in regards to 
resources available made it imperitive that the user be 
given some access mechanism to these resources. Phe ficSse 
system to provide such a means was th2 IBM 360. The system 
required precise instructions to execute the system func- 
aos Unfortunately, these instructions were not self 
generated like today's systems but required external media 
intervention. This external media was in the form cf puneh 
cards each containing a precise coded instruction which was 
then feed int> the system along with the program card deck. 
The system designers either misconceived the effect of these 
cards on programmers or miscalculated their abilities to 
achieve an automated system. The result was catastrophic. 
The first of the Command languages was a piece meal language 
conceived in part asan after thought to a poor system 
design. The IBM language called a JOL (Job Control Language) 
dds just that, it controlled the program execution by the 
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—nsertion of instruction cards throughout the program to 
manage the system's resources. The language was ambiguous, 
snconsistant, machine dependent and designed with little 
concern for the user. The impact of the IBM JCL language 
Spawned numerous reserch efforts several of which are 
outlined. 

During the late 1960's and early 1970's several ozrgani- 
zations established working groups to study the JCL and OSCL 
(Operaing System Control Language) interface problen. The 
first organization te study the problem was the American 
Standards Institute Committee on Programming Languges (ANSI) 
in June of 1967 [Ref. 1]. They conducted extensive surv3ys 
of nine existing O/S systems and their control languages. 
Their findings concluded with a list of five recommendations 





————-—- 


1. The need for a standard OSCL exists and its 
attainment is possible 

2. Several features now present in O/S should 
not be included in the standard 


| 

| 

{ 

! 3. None of the oe OSCL's surveyed are 
e 

| 

{ 


-——-- 


Suitable as_ candidates for a standard A aie a seere 
- There should only be a single standard OSCL 
»- Piecemeal standardization should be avoided 


| ey 


Figure 1.1 ANSI OSCL Study Recommendations. 


for a design proposal, figure 1.1 

The Dutch established committ22es in September of 1971 
and conducted numerous meetings under the auspicies of the 
Netherlands Centre for Informatics. They focused on the 
Paseemounceions of job control as related to data processing 
and job centrol inputs. The committee developed a list of 
besmemyob GControl functions, Figures s2, is @ Synopsis of 
their classification of related O/S funcions. 
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- Allocation (of resources) 
- COnditional Selection (of part of a job) 
- Execution (of a computer pEQges ©) 


Declaration (of job attributés) 


a ee 


Pigure 1.2 Dutch JCL Committee's Basic Job Functions. 


In late 1972 the CODASYL (Conference on Data System 
Languages) organization conducted follow on studies +o the 
ANSI research. They determined that the ANSI committee had 
only addressed the feasability aspect of a standardized 
language and so set out to design a standard OSCL language. 
Three working goals were established to guide the research: 
investigate the functional regquiraments for communications 
between the user, the functional program and the hardware; 
determine the functions necessary to define a standard OSCL 
language and what preblems such a language would have on an 
O/S;: develop linguistic elements which posses these func- 
tions and define a machine-independent OSCL. 

Since these early studies Othar organizations 1.2. US 
Federal Information Processing Standards (FIPS), IEEE, ACH, 
British Cemputer Society, US Department of Defense (DOD), 
etc. both governmant and privately sponsored have contrib- 
uted to the research and development of several prototyps 
OSCL languages. 

The problem of standardizing Command Languages has 
perpetuated itself cver the years. To date only a_ few 
languages (systems) merit any consideration as possible 


solutions. 
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Be PURPOSE 


The purpose of this project was t> design a system which 
will enable the user to easily define a screen oriented 
environment (shell) for interfacing to microprocessor based 
computer syst2ms. 

The shell provides an abstract view of the computer 
system to the user. Through it command access can be 
controlled anda standard JCL can be created which will 
operate on multiple computers and operating systems. En 
this way, any computer system can be tailored to perforn 
exactly as desired fer each command. In addition, the same 
commands can be made to execute in exactly the same manner 
regardless of the resident operating systen. This can have 
substantial cost saving effects in locations where multiple 
computers are used. Personnel will not have to be trained 
for each system since all systems will operate with the sane 
JCL. 


C. SCOPE 


Chapter two discusses the issues involved in the design of a 
command languages. Guidelines for the design are also 
presented. The features of th2 command language are 
described in Chapter three. Chapter four discusses the 
factors which were involved in the design. The assumptions 
made, the criteria established and the decisions based on 
them are listed. A prototype implamentation is described in 
Chapter five. The operation of the system from the point of 
view of a user creating a shell environment with the command 
language is discussed in Chapter six. Our conclusions and 
recommendations including the results of the prototype 
implementation are presented in Chapter seven. Appendices 
A, B and C include the RSCL grammar, a User's Manual for the 
RSCL and a CLI program source code listing of the prototyps 


implementation, respectively. 
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Ae DESIGN ISSUES 


Four design issues cecnfront the designers of any interactive 
Command language [Ref. 2}. First, how many modes of opera- 
tion should the user be forced to learn. Second, «he selec- 
tion sequence of ccmmands should be consistant and not 
Change with varying machine implemantation schemes. Third, 
an abort mechanism must be provided to the user to terminate 
a command sequence without losing the current scope or envi- 
ronment. Finally, a clear and concise error message system 
must be provided to quickly resolv2 syntactic and semantic 
problems. These design issues are not all inclusive and 


further issues will be brought forward as the need arises. 


1. CCMMUNICATION STYLES 


Many CL (command Language) communication styles are avail- 
able today. Direct keyboard entry, using pre-defined 
commands, allows the user to direstly control thetmachine 
Operations, but requires the user to learn a new, possibly 
criptic, language for each OS/machine used. Another method 
uses keyboard response dialogue ‘*£o screen prompts. This 
method is easier to use, but regquires modification of the 
prompts whenever a change in functions is’ made. Pu meca on 
keys are a third method for users to communicate with the 
system. They are very fast and simple to use. The drawback 
with this method is some machines do not provide a function 
key option or an easy means to redefine the existing key 
funcraons. The last communication style to be mentioned is 
the screen menu format. This style is seen as the way of 


=her Future. Commands and data are displayed on *the screen 
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in menu form. The user references the command/data by posi- 
tioning the cursor at the desired fiald or by smarking che 
position with a light pen. Data changed on the screen are 
correspondingly changed in the data base. Criptic one-line 
commands to the 0.S. are no longer required. 

some systems (Xerox Smalltalk) provide a controlled 
pointer (mouse) to indicate which function is to be invoked. 
The Apple Lisa system uses the position of the curscr to 
Peon baght a chosen function. In 2ither case the system is 
screen orierted providing the user with a simple control 
mechanism without the need to learn another language. 


2. DESIGN GUIDELINES 


Several scholars have suggested guidelines for developing 
command languages. Rather then repeat their offerings we 
have consolidated our perceptions of the primary guidelines. 
- The systen must -be consistant. It must present 
the same environment to the user regardless of 
the basic system it is operating on. 


- The systen must provide the user with a command 
sequence which is easy to use and learn, especially 
the most frequently used commands. 


- The system must be portable. Jther machines must 


be able to adapt to it with minimal modification. 


. The system must provide a suitable error handling 
process, both in presenting error messages and in 


saving environments. 


. The system should be user interactive and provide 
the user with the option of selecting the level of 
prompt help he desires. Screen oriented displays 
are very helpful in salecting operations, but 


require complex interface buffering. 
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- Control structures should be affluent enough to 
allow the user total control of the programming 
envircnment. 


3. USER PROGRAMMING LEVELS 





Different levels of user motivation and programming experi- 
ence must be considered when designing a aulti-purpose 
Command Language systen. Figure 2.1 shows a rough categor- 
ization cf potential users into four general programming 
levels. 


———-—-—--—---—------------ 


e Toy store Prograg ger 

e Novice Programmer 

e Computer Club Programmer 
e Paid Programmer 


fWrh— 


Figure 2.1 Four User Programming Levels. 


: 


The first level is the "tov store" programmer. He does not 
Beamelyeyant to write an application program, but just wants 
to know enough language tools to run a simple game progran. 
In general, he is in total awe of computers and makes 
Minimal use of their actual processing capabilites. 
Progressing to the second level, the first addres- 
sable command language level, we have the user who may have 
attended a programming course and who is now challenged to 
write a few simple application programs. The user at this 
lavel is enthusiastic and eager to try out his new skills. 
A friendly command language will motivate him to the next 
level. A poorly designed command language will be frus- 
tratine and quite possibly curtail future computer queries. 
The third level is characterized by a quantum jump 
in user motivation. and usually programming skills. These 
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users really want to know how the internal system works and 
are willing to expend energy and their own time to learn 
Varying systen hardware and software COnElL guraeions. 


The final level is a grouping of two user facticns 


ico one entity. They are colloguially termed the learned 
computer scholars and the commercial programmers. They may 
perceive issues frem different pe Bape’ eee yet their 


motives and knowledge of computer linguistics are compat- 
ible. Bcth require the full system resource capabilities at 
their immediate dispesal in crder to perform to their full 
potential. 

Realistically, the majority of today's users and 
those who are of ccncern to a command language designer, 
fall within the final two catagorias. However, care should 
be taken so aS not to preclude us2 by someone at the second 
level. 

t is easily understood why Command Languages are so 
universally divargent. DeSigning a command language to 
Satisfy the dynamic needs of the fourth level users while 
Still maintaining the simplicity for the novice users is not 


a trivial task. 


Another issue which is receiving a great deal of attention 
as the state-of-the-art is the display format. Whether to 
display data as individual line oriented character strings 
or aS a menu driven systen. The traditional theme, driven 
by the hardwace limitations of the past, Ls TTY »(ceteryp-— 
woitter) format. i.e. Presenting a line at a time. The 
user responds in a Similiar manner by entering data in line 
oriented fashion. Innovations in hardware have enabled 
designers to break from tradition and display whole screan 


prompts instantaneously. 
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The impact of these innovations has been seen is 


such systems as the Xerox Smalltalk and the Apple Lisa. _ 
Se Inccrperating the traditional command language iine 
editing commands into onscreen menu controls. The respos= 


from critics to these nontraditonal systems has been ov 
whelmingly positive. 


iD 


i 


The real significance of thase systems is their 
prime objective. They strive to provide the user with a 
friendly interface devoid of complex, ambiguous and incon- 
Sistant ccmmand language structures. To the "real" program- 
mers these systems appear as a threat to their mythical man 
over machine syndrome. Many feel that programming is an art 
and a science and that these systems take away their 
creativity by restricting how they can address the computer. 
They prefer to deal direct rather than through the 
middieman. In reality, a friendlier interface places no 
such restrictions. It simply makes it more understandable 
so that more users can address the computer direcly. Un<i 
we overcome the system friendliness problem only those in 
the "real" programmers category will be willing and able to 
fully ucilize the computer. 

These systems still have some drawbacks such as 
overall cost and high memory requirements. Yet, given the 
history of the microprocessor, hardware designers will over- 
come the obstacles and make these features available to the 
average user. 

The command languages of tomorrow will employ the 
ease of ecnscreen ccntrol with the user friendliness of 


multi-screen display. 
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III. R&S COMMAND LANGUAGE FEATURES 


A. RSCL COMMANDS 


The RSCL commands were chosen based on the guidelines 
outlined in chapter <¢wo. Simplicity of use, coupled with 
conciseness in definition and execution were paramount in 
choosing the RSCL coamands. 

Research and practical experience indicates that many 
command languages are either to baroque or to simple for 
their intended purpose. While the RSCL does not encompass 
all possible programming language capabilities, it does 
fulfill the minimum requirements 9f a complete language. 
And, it does establish a user friandly framework, a design 
goal stated in chapter one. 

Standard command naming conventions i.e. if-then-else, 
put, case etc. were adopted whenev2ar possible. The syntax 
structure does not deviate from established norns, while the 
semantics of the command languag2 avoids ambiguity. 
Exception processing and type conversion is not performed 


nor is it implied in any of the commands. If the systen 
does not know what you intended, it tells you via an ¢rror 
message. If data types do not match across an assignment 


operation, the assignment is not permitted. 
1. BUILT IN FEATURES 


Several features have been built into the RSCL which 
simplify both the language itself and the programs written 
in the language. 

. Dynamic data typing (offsets daclaration requirements). 


- Both interactive and file processing capabilities. 


. Automatic file opening and closing operations performed 


ie) 
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On both the PUT and the GET commands. 
- Fermat free statement entry. 


- Statements may be entered in either upper or lower case. 


2. LANGUAGE LIMITATIONS 


The language, as designed, has the following limitations: 


- Arrays and data structures are not defined. 
- Only decimal integers nay be represented. 

- Floating point arithmetic is not supported. 
- Unary operators are not supported. 


- Exponentiation is not supported. 
In the prototype implementation che following addi- 
tional contraints were placed on the systen: 
- Loop statements may not be nested. 


- Only one string variable may exist at any time. 


3. LANGUAGE COMMANDS 


The ten RSCL commands were chosen aS the minimum number 
required to facilitate the requirements of a screen oriented 
command language. 

The following is a brief description of ¢ach 
command. For a detailed description sée the R&S Command 


Language User's Manual, Appendix B. 
a. LET command 


The LET command serves as the assignment statement. The 
variable on the left hand side (LHS) of the "=", receives a 
value frem «he right hand side (RHS). The RHS can be either 
an expression, an integer, a string, or another variable 
([comtaining a value of the same data type). If the RHS is 3 


legal arithemetic expression, its value is computed and the 
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result is assigned to the variabl2= on the LHS. Otherwise, 
the value of the RHS is directly assigned to the variable on 
the LHS. 


b. The PUT command 


The PUT command consists of thre parts; che devic2, an 
Optional line skip parameter and the data list. Ee Ouevacs 
newlines and the items specified in the data list +o the 
hamed device. 

Valid devices are: "LST", the system line 
printer; "CRI", the user's consol2 screen and <FN> the name 
of a disk file. The device name may be followed by the word 
"skip" (performed only once per-command). Each occurrance 
causes a newline character to be output. The data list 
contains any combination of variables and strings (a string 
consists of any characters contained within double qucte 
symbols " "), The value of the variable and the actual 
character string, minus the quote marks, will be output. 


c. The GET Command 


The GET ccmmand reads data from either the user's console or 
from files stored onthe user's disk. The device name 
("CRT", <FN>) preceeds the receiving variables and indicates 
which medium the user wishes to access for his data. 


d. IF command 


The IF ccommand is used to logically select whether or not to 
executé a particular set of statements. It has three ccempo- 
nents; a logical expression, a THEN set of statements and an 
optional ELSE set of statements. The value of the logical 
expression is computed. Tf the expression result is “true, 
(value not e2qual 0), the THEN group of statements is 
executed. Otherwise, the ELSE group of statements is 
executed. hemnOlsbos Group 2s @neluded execution continues 


after the end of the IF statement. 
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e. The CASE Command 


The CASE command provides for the 2xecution of one or more 
statements contained within at least one sub_case. The 
sub_case is entered if it's corresponding case label matches 
the value of the CASE statement parameter (variable or 
integer). If no sub _case label matches the label of the 
case value, the OTHERWISE set of statements is executed. 


fan tne LOOP coaman d 


The LOOP command consists of two parts; the loop iteration 
parameter and the body of statements. All of the statements 
included within the body of the loop are repeated a number 
of times equal to the value of the loop iteration parameter. 
If this value is less then or equal to 0, no statements are 
executed. 


ge The COMMENT Command 


The CCMMENT command performs no actual processing. Its 
purpose is to allow the user ‘to document his program and to 
Structure it in a logically understandable forn. A comment 
begins with a "ss" and, as all other RSCL statements, it 
terminates with a "3", Everything contained within these 


two semicolons is ignored. 
h. The LOCATE Command 


The LOCATE Command is used to determine the current location 


Of. the curscr. It returns the row and column number. 
i. The POSITION Command 


The POSITION Command is used to place the cursor at a 


particular point (row and column position) on the screen. 
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j- The CREATE Command 


The CREATE Command is used to generate a screen template. 
It consists of two parts; the template identifier and from 1 
co, 2u@teene definitions. 

The template identifier is a variable name used 
to differentiate one template from another. The line defi- 
nitions specify up to 80 fields pec line and their associ- 
ated attributes. 


k. The DISPLAY Command 


The DISPLAY Command causes a screen template and its associ-~ 
ated data to be output to the user's console screen. i os 
consists of two parts; the template identifier and an 
optionai set of parameters. 

The template identifier is a variable nane 
Supplied by the CREATE command when it generated the temp- 
late. The parameters include a line number, a field number 
and text. The line and field numb2rs specify exactly where 
on the template the text has changed. These parameters are 
returned by the display manager whenever th2 data in a 
particular field has changed. 
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A. DESIGN ASSUMPTIONS 


Four major design assumptions were made early in the design 
phase. First, the integrated system is intended to operate 
on either 8 or 16 bit microcomputers. 

Second, the interfaces between the host operating 
system, the command language and the Display Manager are all 
transparent t> the user. The us2 of abstract interfaces 
between these three modules enables the system to be readily 
*ransportable to various microcomputers and operating 
systems. 

Third, memory utilization was not considered a prime 
concern. The current trends in the state of the art towards 
larger, cheaper memories lead us to believe that the differ- 
ence of cne or two thousand bytes out of possionly one mega- 
byte of storage is insignificant. 

Foustcn, processing speed was considered important, 
although not paramount in the design. Since the system is 
to be in coatinuous operation serving as the interface 
between the user and the imbedded oparating system, some 
overhead is acceptable in exchange for the added capabili- 
ties. This overhead should occur during the user's "think" 


time rather than during actual processing. 


B. DESIGN CRITERIA 


Several criteria were considered during the design phase. 
anity, simplicity, portability, maintenance and upward 
compatibility were all key factors in designing the systen. 
The ultimate goal was to design a system that incorporated 
the features sutlined in Chapter two in a clear and concise 
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Manner without overburdening the user. The limited number 
of language commands is a direct attempt to demonstrate that 
a command language can be simple and can function clearly 
without an excessive number of nsbulous commands. The 
sample programs listed in the users manual demonstrate the 
clarity of command usage. 

The use of a high level system programming languags, 
eon oenvGs =O grant the desired portability. "C" compbalers 
are available on many micro, Mini and mainframe systems. 
Cross-compilers should be available for those systems which 
@o de. have a YC" compiler. 

The VAX computer was used for development of the proto- 
type system. Its processing capabilities and mvriad of 
supporting functions along with its multiprogramming oper- 
ating systemand the availablity of a competent support 
staff made it more Suitable for development than a single 


user micro systen. The use of any features unique to the 
VAX is purely accidental. To assure program portability, 
only standard NEW programming features were used. 


Extensions and system dependant features must be avoided in 
any implementation. 

Program maintenance is supported by the use of a higher 
order programming language, fines2 onal decompostion, 
abstract interfaces and structured programming techniques. 
The utility of these factors was directly observed during 
the debug and test phases of the prototype implementation. 

In addition, the use of a higher order language, the 
simplicity of the language design and the avoidance of 
nonstatndard features ensures some degree of upward systen 


compatibility. 
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C. DESIGN DECISIONS 


Three major design decisions were faced during the develop- 
ment of the command language. First, which langqtagewenould 
be used to implement the systen. second, Gertain grammer, 
structure and implementation conventions had to be adopted 
in order to ensure system integrity. Mircrd, che wneemeaces 
between the operating system, th2 Command Language module 
and the Display Manager module was uncertain. 

"Cc" was chosen to implement th2 system because of its 
inherant system design features. It was originally designed 
as a system development tool. As such, it was felt to be 
the most Suitable language for our purposes. 

In designing the RSCL grammar, standard conventions for 
representing the lexical ordering and syntax of the language 
were devised. These conventions were documented and are 
sncluded with the grammar itself in Appendix A. The use of 
these standards was necessary in order to assure that we 
toth interpreted the grammar in a like way and that separate 
modules, which were coded independently, would operate ina 
like manner. 

Fe2zo: tO initiating the actual coding phase, several 
sessions were held te establish programming guidelines and 
intermodule interfaces. Global variables, data types, error 
handling, system diagnostic and integration standazds were 
defined. Any changes or variations from these established 
guidelines were discussed and agreed upon before being 
incorporated into the respective functions. This peaectice 
proved ¢o be invaluable during the integration and test of 
the prototype system. No significant interfacing problems 
were encountered. 

The last major design decision concerned interfacing the 
command language interpreter (CLI) with the resident cper- 
ating system and with the Display Manager progran. Neither 


of these interfaces was built into the current system. 
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Instead, abstract interfaces were planned for each of 
these. The operating system intarface will be a function 
call with a character string parameter. On. example... £6 
change the name of a file, a rename function would exist. 
This function would require two parameters; the old file 
name and the new file name. The file namés are expected to 
be complete. Information such as the disk drive designator 
should be included in the name wheather or not the user 
enters it. [The rename function would then cause the oper- 
ating system to change the name of the file in whatever ways 
it feels is optimal. It is transparent and irrelevant to 
=e (CLI), whether a separate command +9 the operatin 
system 1s generated or the data is sent to the BIOS or the 
Sask file directory is changed. In this way, a change in 
the underlying operating system will require a change in 
only these interface functions. It makes no difference to 
the majority of the system whether a file name is changed by 
an "nv" command as in VAX UNIX, an “ren command as in CP/M, 
‘an "rc command as in WS.) 2 &G. Th2 implementation of these 
functions is currently the topic of a separate thesis at the 
Naval Postgrajyuate School. 

The interface to th? Display Manager module was not 
implemented because it was planned to use a pre-e€xisting 
program. A commercial product, called "Display Manager" is 
available from Digital Research. This program does all that 
we needed in the RSCL systen. It also is capable of inter- 
facing directly with a program written in the "C" language. 
Rather than devote time to development of a new program with 
Similar capability, it was decided to purchase and use the 
Digital Research Display Manager. Our efforts were spent 
defining the display data which were of concern. This 
information is included in the language grammar within the 
"create" command. The actual conmands telling the Display 


Manager what to display are included in the grammar within 
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the "display" command. Coding of these functions was fost- 


poned until the program could be purchased. At thet taee 


the actual interfacing parameters required can be determined 
and the functions can be written. 
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A. DATA ORGANIZATION 


The language data organization is broken up into two parts, 
local and global variables. Local variables are used within 
each function to handle internal data transactions. Data 
shared between two functions is passed globally. The global 
variables are declared in a central fils, "global.interp", 
to maintain tight control over their asSignment and use. 
Using glcbal variables to transfer external data decreased 
the system executicn time, while making the functions 
cleaner and easier to integrate. The design specifications 
Clearly define each global variabl3=, its use and what func- 
tions utilize it's values. 

Comments are generously dispers2d throughout each func- 
tion to aid the user in understanding its purpose. A header 
is appended to the beginning of each function, listing the 
Sever functions called and the global variables and 


constants used within the function. 


B. PROGRAM ORGANIZATION 


Functional decomposition was used extensively throughout the 
program. Three separate modules comprise the fully inte- 
grated systen. The O/S module is a set of functions which 
defines the interface to the host's operating system. These 
functions translate commands from the CLI t9 the native 
language of the O/S. Those commands that are not native +o 
the host will be software emulated, if possible. 

The language interpreter modula has a dual function. It 
interfaces with both the O/S and display modules. Programs 


generated either interactively or by batch mode are 
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processed through the language interpreter. Output from the 
interpreter is a series of instructions to one of the other 
two modules. 

The last link in the triad is the display module. Like 
the O/S module, it receives its data from the interpreter 
through the interface commands. The display module take 
data stored ina file and transposes it onto one of the 


formats generated by the create command. 


C. RUNTIME ERROR CHECKING 


Arun time error handler is built into the system and is 
activated when an invalid command s2guence is esncountered by 
the interpreter. All error messages are contained in a 
Since CLEOr function. When an error is detected the error 
handler is called and prints a diagnostic message and ampli- 
fying information. Depending on the severity of the error 
either the program is terminated or control is returned to 
“he calling function. 
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VI. SYSTEM OPERATION 
The RSCL is capable cf operating either in an interactive or 
a batch mode. For batch mode operation, programs can be 
written using any standard text editing progran. The file 
containing th2 source code must be called "RSCL". 

t execution time, the CLI datermines if a file exists 
with the name "“"RSCL", If one is found, it is assumed to 
contain the ssurce statements. The CLI then executes ina 
batch mode taihengy2ts Input from the source file. 
Otnerwise, the CLI reads its instcuctions from the user's 
console. 

When operating in an interactive mode, the user must 
still follow the complete format of the language structure. 
That is, the program begins with th2 word "program", termi- 
nates with the word "end." and each statement terminates 


Gaeeh a ws, 
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VII. CONCLUSIONS AND RECOMMENDATIONS 
The command language design and a prototype implementation, 
have been completed. This design is now reviewed to deter- 
Mine which of our original goals have been met or can be met 
with further work and which, if any, were not found to be 
feasible. 


Ae GOALS 


The goal of this work was to design a command language which 
runs On microprocessor based computer systems. The purpose 
of the language was to allow rapid definition of a screen 
oriented user interface. The language was to be simple, 
easy to use and readily understandable. Maintainability and 
portability across different machines and operating systems 
were prime concerns. Processing afficiency was considered, 


but only secondarily to the other factors. 


B. PROBLEM AREAS 


The RSCL is complete and workable as designed. Known 
problem areas which are stated as constraints in <«he 
language are not inherent problems. They can be eliminated 
during future enhancements. The only area which we see as a 
potential problem to the system design is related to the 
Display Manager interface. The design in this area was 
purposefully made generic via the principles of abstract 
interfaces and irformation hiding. However, if the func- 
tions required by the CLI are not availabie, some redesign 
may be necessary. Bec2zuse of our research in the area 
before creating the design, we do not feel this is a major 
GOnecern. The CLI module should b2 easily interfaced so the 
other two major system modules when they become available. 


a2 





C. FUTURE WORK 


In order to create a complete and deliverable product 
further work is required in four areas; the operating system 
interface routines must be completed, enhancements must bé 
added to eliminate the constraints discussed in Chaptez 
three, the three main system modules must be integrated, 
studies should be performed to datermine user needs and 
reactions. 

The operating system interfac= routines are already 
being developed under a separate thesis effort at the Naval 
Postgraduate School. Assuming that a copy of the Display 
Manager Program is obtained from Digital Research and thata 
"c" compiler is available for the NPS microprocessor systen, 
the system enhancements and module integration can be accona- 
plished under another thesis. Concurently with the system 
mcregrat len, research should be performed to determine 
sample presentation formats. They could then be created in 
Siem nS L . 
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COMMAND LANGUAGE GRAMMAR 


The convention used for describing the grammar of the 
command language is described in table I. 


TABLE [I 
Grammar Convention 


SIMBOL MEANING 

< > Used as delimiters for metasymbols 
in the eg he Anything contained 
Within these brackets is defined 


later in the grammar. 


{ ] Used as_ delimiters surrounding 
Optional entries. 


Used as delimiters surrounding 
literal expressions in the grammar. 
Anything within these symbols must 
appear exactly as shown. 


Used as a logical OR. 


Interpreted as "Defined as". 


Used to group expressions. 


tm: 
+t 
PA 


Used to designate a repetitive group. 
Where "N" ds the number 9f repetitions. 


a a ee eee 7! wy 


SS SS a 


| 


Using this convention the Command Language Grammar is 
defined as follows: 
PROGRAM ::= "PROGRAM! <IDENTIFIER> CSTATEMENTS> ‘'END.'! 


STATEMENTS ::= ( <LET_STATEMENT> | <IF_STATEMENT> 
<PUT STATEMENT> | <GET_STATEMENT> 
{ <LOOP STATEMENT> | <CASE_STATEMENT> 
| <COMMENT> { <DISPLAY> | SCREATE> ) ';! 
r <STATEMENTS> ] 
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Pete oLATEMENT :3:= *LET* <IDENTIFIER> ¢=° ( <EXPRESSION> 
| <IDENTIFIER> | <NUMBER> | <STRING> ) 
IF STATEMENT :3:= ‘IF* <LOG EXP> 'THEN® <STATEMENTS> 
{*ELSE* <STATEMENTS> eo ND 
PUT_STATEMNENT :3= "POT" <PUT DEVICE> [ Shree |e bis i> 
PUT_DEVICE s3s= ‘"CRI* [| 'LST* | <FNAMED 
ELST pest SLDENTLEFIER> | <STRINGDS ) (<LIST> } 
GET_STATEMENT 2::3= "GET" <GET_DEVICE> “Loe iS i> 
Gor DEVICE >3:= ‘"CRI* | <FNAMED 
Le LiST oe. EDENTIFP EER? [ <TD brs > 
FNAME :3= <CHARACTER> "3: ] <IDENTIFIER> 
tlt <I DENTIFIER> } 
LOOP STATEMENT ::= * LOOP <IDENTIFIER> {| <NUMBERD ) 
<STATEMENTS> *ENDLOOP'!® 
Oiae STATEMENT 2 := *CASE* <IDENTIFIER> *:' <CASE NUM> 
"OTHERWISE:* <STATEMENTS> ‘ENDCASE! 
CASE_NUM 23 CN <TDENTIFIGR?) 82" “SS@AT EeENTS? 
[ <CASE_NUM> 
COMMENT ss= 's3s* <ANYTHING> 
IDENTIFIER ::= <CHARACTER> ({<SUB_ID> ] 
SUB_ID 23= [— '_'] (<CHARACTER> | <DIGIT>) (<SUB_ID> ] 
POP RESSLON :;s= *(*§ <TERM> [| <ARITH_OPR> <SUB_EXP> ] *)! 
SUB _ EXP s3= <TERM> [ “<<ARITH_OPR> <SUB_EXP> } 
TERM s3:= <EXPRESSION> | <IDENTIFIER> | <NUMBER> 
LOG_EXP s2= *(* <LOG TERM> [ <LOS_OPR> <SUB LOG> } 
SUB LOG ::= <LOG TERM> LY <LOG_OPR> ( <SUB_LOIG> 
ar: { <LOG_EXP> J 
LOG_TERM 2:3= <LOG_EXP> | <IDENTIFIER> [| <NUMBER> 
SPACES eae ef © <S PAC ES> 
NUMBER :3= <DIGIT> | <DIGIT>D <NUMBERD> 
CHARACTER 3:3:= rat ‘Bt | ‘ct en | ee tat { ei 
oi Ae + ene tse pe | tye 
ryt yey exe ryt ‘Ze | tat yf tpe 
| tcl | tq | tat | fre ‘gt tht st 
7° tk? ‘1¢ tn? tn? to! | oO! 
“or rt ts! $+ 'y ¢ ty ¢ i tye 
tye a ie i 7% 
ee oO | ede | 8S: a A a ee | aa 
‘ge ge 
Meer neoPR 2s= *+* | '-' | eH | FY 
LOG_OPR ::= ‘EQ' | ‘LT* { 'GT* { ‘NE | SLE" | ‘GE! 
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LOG_ FUNC ::= ‘AND* | "OR* | "NOT" | "CON? 
STRING s:= '*" <CANYTHING> tt 


ANYTHING ::= ( <DIGIT> | <CHARACTER> 
<OTHERS> [ 


QO 
OTHERS re Wes 
?¢ i ‘$e ee 
% 
] 


| ere | q q | ee, 


= 2 i) eee, 
se ® a @ 

| ead 
a ee @ 


DISPLAY ::= 'DISPLAY' <IDENTIFIER> [<PARAMS>] 
PARAMS ::= '('! HF. at (<FIELD>] ',' 


<TEXT> 
LINE :3:= NUMBER 
FIELD ::= NUMBER 
TEXT >: = ANYTHING 


LOCATE s3s= 'LOCATE® <ROW> <COL> 

POSITION <s3= *POSIT® <ROW> <COL> 

ROW :3:= NUMBER 

COL >3:= NUMBER 

GREATE fo —  GREARE <I DENTIFIER> <DEF LINE>**24 ‘END 


DEF _ LINE ::= ‘DEF LINE' <NUMBER> b=" <NUSBERS 
( <DEF FIELD>*"sS0 j| "BLANK ) “YENDLINE* *; * 


Bayo PriELD ::= 'DEF_FIELD® <IDENTIFIER> <ATTRIBUTES> *;° 


ATTRIBUTES ::= *(* [ <LENGIH>] ',° ERLE? du 
<ACCESS>] ',!  CBACKGR aNb>),* 
SFOREGROUND> ] 1 ¢* [<VIDZO>] 
<UNDERLINE>] ',* (CINTENSI e 
<TYPE>] ') 

LENGTH :3:= NUMBER 

VALUE :2= ANYTHING 

FCCESS 2s= 3'R/O* {| ‘RAE 

FOREGROUND ::= DIGIT 

BACKGROUND ::= DIGIT 

VIDEO 2:= 'NORMAL' | ‘INVERSE! 

UNDERLINE ::= "ON' | ‘OFF* 

INTENSITY ::= "BRIGHT! | ‘DIM! 

TYPE 2:= "ALPHANUM' | '"NUMBER' | ‘CHAR' {| ‘STRING! 
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APPENDIX B 


R&S COMMAND LANGUAGE USER'S MANUAL 


A. INTRODUCTION 


The R&S Ccmmand Language (RSCL) is designed to create micro- 
processor shell formats from within user designed software 
programs. Programs written in tha language will interface 
with the display module to output data in the specified 
peeeen GCERGat. Menus are utilizai to facilitate proegran 
entry and apprise users of available formatting options. The 
language uses an interpreter, written in "C", to execute the 


programs. 


Be. LEXICAL CONVENTIONS 


There are seven types of tokens: IGSntLELers,  Ihcvegers, 
SerElmas, arithmetic operators, logical operators, logical 
functions and others. In general blanks, tabs, comments and 
newlines are ignored except as they serve to separate 
tokens. At least one of these characters is required to 
separate otherwise adjacent identifiers. The language does 
not incorporate any reserved words in the grammar. Bach of 
the RSCL statements is considered a keyword when used at the 
beginning of a2 command sequence, however, since keywords are 
not treated as reserved words they are allowed to be 
assigned as identifiers latter in a command line. The semi- 


eolon acts asa statement terminator. 


Each word is scanned for inclusion in one of the seven iden~ 
tified token types. The tokens are then processed one at a 
tyme through the CLI. The following subsections describe 


the token formats in detail. 
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Identifiers may consist of alphanumeric characters and the 
underscore symbol. The first character must be alphabetic. 
It 1s optionally followed by characters, underscores or 
dmgi tsi. Upper or lower case alphabetic characters are 
allowed but are not distinguished. The standard convention 
of not allowing an identifier to terminate with an undér- 
score appliés. Identifiers have a maximum length of ten 
characters and their value can be one of three types: char- 
acter, string or integer. 
BNF format: 

IDENTIFIER :3:= <CHARACTER > <SU5. 10> 

SU) eae 00 eee Les ( <CHARACTER> | <DIGIT> ) <SUB_ID> 


Db. NUMBERS 


Numbers are formed by concatinating one or morse digits onto 
a digit. Only digits are used to form numbers. Numbers are 
not re-definable data types. 
BNF format: 

NUMBER ::= <DIGIT> | <DIGIT> <NUMBERD> 

DIGIT ::= rorgr2ztyrsry rye DSeypeerge7eeearye gt 


c. STRINGS 


Strings are any ASCII print character(s) between double 
guotation marks (" "), The language reads "this is a 
stringtt as a single string. 
BNF format: 
STRING ::= *"*<ANYTHING>D! 
ANYTHING ::= ( <DIGIT>|{<CHARACTERD | 
<AR ITH_OPR>{ <OTHERS > <ANYTHING> 
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d. ARITHMETIC OPERATORS 


Standard arithmetic operators i.e. te, nan, Wee ON Pa Ss 
implemented within the language. Unary operations are nor 
currently supported by the language. 
BNF format: 

ARITH_OPR i:= ‘#typt-typtarye ye 


@e. LOGICAL OPERATORS 


Alphabetic type characters i.e. VEOe nto Meee 
ia yee os 6 6cALe used to «perform logical operations. The 
first three eguate to equals, less then, and greater then 
respectively. The last three equate to not equal, gzeater 
then or é€qual, and less then or equal. All expressions are 
required to be parenthesized i.e. (A GE B) or (& LT 9). 

BNF formats: 


Metmorr >s= EO] * LTS "*GTt( *NEt( "GE | *LE* 


f. LOGICAL FUNCTIONS 


Logical functions also use alphabetic type characters i.e. 
rer, "OR", “Nor, “CON to perform their functions. The 
“wp ", Eunction returns true if the two arguments bracketing 
the "AND" are both true. The "OR" function returns true i 
either of the bracketing arguments is true. The "NOT" func- 
tion logically complemnts its operand. Themsen" funcumon 
concatenates a string onto another string. Like the logical 
operators, parentheses are required in logical expressions 
ee (WCE T) MAND (NLT W)) Where Z, T, MY and W are vari- 
ables or expressions which evaluate to comparible data 
types. 
BNF format: 

LOG_FUNC 3::= ‘AND'('OR'{ * NOTTS] 'CONS 
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oe OPH ERS 


The others token type is a collection of the remaining stan- 
dard ASCII print character types i.e. "(", "y, wen, ug 
w#", etc. These characters represent their normai meaning 
except where their meaning is negated i.e. "Gr" replaces ">" 
Sign in the grammar convention. 
BNF format: 

OTHERS ;::= te Vey Pe Sea ty 8 | soe | ee Pe Ves 

ie Se Ee it fee es ¢ 


C. DECLARATIONS 


The language does not provide for any variable pre- 
declaration. New variables on the LHS or RHS, if reading in 
data from the CRT (screen) ora file, will be assigned the 
Same data type as the recieved data automatically. Type 
conversions are not performed in the language. 


De. SYNTAX 


The BNF (Backus Naur Form) syntax structure for the grammar 


1s provided in Appendix A. 


E. PROGRAM STRUCTURE 


All programs written in the RSCL are comprised of three 
parts; a header, Statements to -executs anda trailer. 
Figure B.1 shows the format of a simple progran. 

This sample demonstrates the overall program structure. fMThe 
first line, "program sample" is the program header. Note, 
that it does not include a semicolon. A semicolon isa 
statement terminator (a s@€micolon 1S required at the end of 
every statement). The complete statement is "program test 


<executaktle statements> end.;". 
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program sample 


put crt skip "Enter a value for the loop count."; 
ee Cet 4; 


od a 
1£ ( a eg 2) 


hen 
Ey crt "The value of a is " a; 
Get eestiile.dat b: 
But cre skip "When a = 2, b = ™ b; 
endif; 
endloop; 
end. 


ce en cc ce i ce ee 
ct 


ae 





en quae] as See ee SS SS, eS a a ey eee ee a 


Figure B.1 Saaple Command Language Prograa. 


The second through twelfth lines are the executable state- 
ments. They perform the actual processing. The trailer is 
Bends 3" 

The indentation and structured appearance is optional. 
The CLI ignores blanks and carriage returns. thes eioue, 
Multiple statements can be placed on a single line anda 
Single statement can be split over several lines. Figuce 
B.2 shows two legal ways to write the same statements. 





— —— ee a a 
| Sample of combined lines. | 
| let a = (b¢1)3 put crt a; | 

Sample of line splitting. | 
| let | 

a= (¢,b 
i rt) | 
| wout Cot | 

a; ( 
_S ee ee. ee ek: 


Figure B.2 Example of Two Line Formatting Techniques. 
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While no one should write a program in the s¢2cond 
format, if the code needs to be packed, any format is accep- 
table so long as variable names are not split between lines. 
In that case they will be treated as two separate variables. 

Now, knowing the general structure of an RSCL progran, 
each of the ten individual statements are discussed in the 
following sections. Fach statement's function and format, 
the constraints on its use and the error messages which can 
occur with their probable cause({s) are described. 


1. 


Le | 


he LET statemen 


fct 





The LET statement is used to perform arithmetic operations 
and to assign values to variables. When performing arith- 
metic, the expressicn on the RHS must be contained within 
parenthesis. The value of that expression will then be 
assigned to the variable on the LHS. Lf Pre aeitnmet tcmas 
required, the RHS may contain either an integer, a string or 
a variable. In that case, either the integer value, the 
Setudie string Or the value of the variable wiil be assigned 
*o the variable on the LHS. 

If the variable on the LHS is not defined, fige) SU 
dynamically defined according to the zype and value of the 
RHS. If the variable(s) on the RHS are not defined, an 
error message is printed. If both variables are defined, 
their types are compared to ensur2 that the assignment is 


SGOrrect. 
Ae Format 


A LET statement must te in the form: 
‘let! <identifier> '=' ( <expression> | <identifier> 
| <number> { <string> ) 
Where the word "LET" is the keyword and must be the first 
word in the statement. "LET" is followed by an identifier 
which is treated as the LHS of the statement and will be the 
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recipient of the assignment. Next, the equals sign, "=", is 
expected. This is used to separate the LHS from the RHS and 
toO.)606Wd Show the direction of assignment. Ets snouidine. se 
confused with the standard relational operator "=" which 
means equality. ( In RSCL equality is represented by the 
string "“eg")., The RHS may contain only one of either an 
expression, an identifier, a number ora string. Upon 
execution of the let statement, the value of the RHS is 
assigned to the variable on the LHS. 

The expression on the RHS may be a valid arith- 
matic expression containing variables and the arithmetic 
eraroLs Of +", tat wet and Wl, These operators hoid 
their standard meaning of addition, subtraction, multiplica- 
tion and division. The precedence of operations may be 
either implied or explicitly declared by the use of paren- 
theses. Pace igplaed precedence 1s “*" equals "7" and "+" 
equals "-", While "*" and "/" are the higher precedence and 
are always performed before "+" or "+". Qperations of equal 
precedence are performed left to right. Pugurs Bs 3) i iiws-— 
trates the LET statement format. 


b. Error Types 


The error messages associated with the LET statement are: 


MESSAGE: 
AN IDENTIFIER was expected, but ssss was found 


ace da. 
EXPLANATION: 

"tssss't is the token that was found prior to the 
pore iT" an the input line. Check the syntax of the 


statement containing this line. 
MESSAGE: 
= was expected, but ssss was found at lill. 
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EXPLANATION: 


Vso lS the teoKen that was foundep=e ao: ito the 
eopetom 111i" in the input Line. An "=" was expected jiesig- 
Mating the direction of the valus assign@ent in the let 
Statement. 

MESSAGES: 


AN ARITHMETIC EXPRESSION was expected, but ssss 
fas found at llll. 

EXPLANATION: 

"ssss" is the token that was found prior to the 
moant “Liil" in the input line. The RHS of the let state- 
ment did not contain a valid arithmetic expression. Most 
likely a matching parenthesis was omitted. 

BESSAGE: 

AN ARITHMETIC OPERATOR was expected, but ssss 
Was f£00nd at lill. 

EXPLANATION: 

'ssss" is the token that was found prior to the 
Powe ult in the input line. The RHS of the LET state- 
ment did not contain a valid arithmetic operator between two 
Bdentaiftiers. 

MESSAGE: 

Undetipnediaidentifiler, sssS at poppyin line: 211i 
EXPLANATION: 

"'ssss" is the token that was found prior to the 
ieemicepopp” 12n the input liane "1111". An identifier in the 
RHS of the let statement did not have a value. All identi- 
fiers must be set before they can be referenced. 

HESSAGE: 

Data type mismatch. A string type was expected 
acmuepp aneltines Lill 
EXPLANATION: 

The LHS of the LET statement was of type string 
but the RHS was not. 
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let a= 7; 


Assigns the integer value 7 to the variable 
ieee tL Na" is undefined it will also dynamically 
declare variable "a" type "I" for integer. 


let a= b; 
Assigns the value cf "b'"* to the variable "a", 
If "pb" does not have a value then an error is 


called. If both "a" and "b" have values then 
a type check is made. Otherwise, “atl is 
dynamically assigned the data type of "bi, 


let a = ((b + c) * 7); 


Assigns to the variable "a" the resulting value of 
Ene MHS Expression. If “a™ is an undefined variable 
then it will dynamically receive the same data. 
ee as the expression result or if "a" is defined 
the LHS and RHS types are compared. 


let a = "this is a test"; 


Meesagns the string, "this is a test", to the 
Waccabie "at, Tf "a" is undefined then it wiil be 
dynamically assigned data type "S" in the symbol 
table or variable "at is comparei for data type 
io SCLing. 


Ree cence EE eget ate eee nas SE cee EE ee | 





Figure B.3 SAMPLE LET STATEMENTS. 


c. Usage Constraints 


A maximum of 20 operations may be nested in the arithmetic 
expression. The type checking is performed based on the 
type of the right-most variable in the RHS. 


2. The GET Statement 


The GET statement is used to read data into the program from 
some external device and asSign that data values to a program 


variable. 
ae Format 


A GET statement must be in the forn: 
'get' <device> <list> 
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Where the word "GET" is the keyword and must be 


the first word in the statement. "Get" is followed DY 2 
device. This device may be either "CRT" for the user's 
console or the name of a file. ADVtCHLAG which 1s notce"GEn! 


is considered a file. The name of the file may optionally 
be prefaced by a disk drive designator and/or suffixed by a 
file type. The total file name follows the file naming 
conventions established for the CP/M operating system. 

Following the device is a list of identifiers 
which will receive the values as read from the input device. 
If the identifiers are already defined, the data will be 
read acccrding to the defined type. Otherwise, the identi- 
fier's type will be set depending on the type of the data 
which is read. Figure B.4 illustrates the GET statement 
rOmma t. 


Giemeent ae(D,Co..); 


| 
| 
Reads the next terminal input and assigns it to | 
*he variable "a", If the variable "a" is undefined 
femme) Gynpamicalily assign the input's data aes | 
to "Ma. Otherwise, it will perform a ee chec 
on "a", More then one input can be read from the 
terminal duri a get statement. Type checking | 
is done on each receiving variable. | 
| 
| 
J 


get <FN> a (D,C..); 


Opens the Oia Agee data file <PN> and reads the 
data in sequential order. The receiving variable(s) 
are either dynamically assigned the input's data 
type (undeclared) cor a type check 1s performed. 


_2At ae 4 Gee 


RE ai GEER Ss SS ee ee EE GD EE OE EEE ES a ee ee ee 


Figure B.4 SAMPLE GET STATEMENTS. 
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b. Error Iypes 


The error messages associated with the GET statement are: 
MESSAGES 

DEVICE *‘CRT* or a file name was expected, but 
ssss was found at 1111. 

EXPLANATION: 

"Ssss" is the token that was found prior to the 
foc LIT ain the input line. The word ‘get' must be 
followed by the name of the device from which to read «the 
data. 

MESSAGE: 

Filename -- (<FN> [{.<FTI>]) -- was expected, but 
ssss was found at 1111. 

EXPLANATION: 

"Ssss" 1s the token that was found prior to the 
Poort il an the input line. A file name may be up to 8 
Characters long and optionally prefaced by a drive desig- 
nator (one character followed by a colon). 

Filetype -- (<FN> [.<FI>]) -- was expected, but 
ssss was found at 1lil. 

EXPLANATION: 

"ssss" is the token that was found prior to the 
poine "Lili" in the input line. A file type may be up +o 3 
characters long and must be prefaced by a period. A file 
type only appears after a vaiid file name. 

MESSAGE: 

Unable to open file - check <FN> is capitalized 
EXPLANATION: 

The file designated in the GET statement does 
not exist. Check the spelling of the file name. Be sure to 


watch for discrepancies in capitalization. 
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MESSAGE: 

Cannot read from the list device at pppp in 
ime: Lilli 
EXPLANATION: 

"oP PPerwls eae point in the input vine lai" ae 
which the error occurred. A devics type of "LST" is illegal 
for the GET statement. 


ce. Usage Constraints 
There are no usage constraints in the GET statement. 


3. The PUT Statement 


The PUT statement is used to ouput data from a program vari- 


able to some external device. 
ae Format 


A PUT statement must be in the forn: 
moe’ <device> {'skip’ ] <list> 

Where the word "PUT" is the keyword and must be the first 
word in the statement. “PUT" is followed by a device. This 
device may be either "CRT" for the user's console, "LST" for 
the line printer or the name of a file. Anycohund which iis 
met MUERT" or "LST" is considered 3 file. The name of the 
file may optionally be prefaced by a disk drive designator 
and/or suffixed by a file type. The total file name follows 
the file naming conventions established for the CP/M oper- 
ating systen. 

The device is optionally followed by the word 
‘skip'. If included, this will cause a newline control code 
to be transmitted to the output device. Note, the skip is 
only done once per statement. 

Next is alist of identifiers and/or character 
strings. Figure B.5 illustrates tha PUT statement format. 
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| 
| 
| 
| 
| 
| 


pee CRT a (b,c...); 


Displays on the CRT pees the value of the 
ead oLe Ya", Multiple displays (b,c...) are allowed: 


pac CRT SKIP (a,b...) ; 


Skips a line prior to displaying the variable data. 
The skip is performed only once prior to displaying 
ing the variable(s) value(s). i 


Piel st a (5b,C..); 


Bees mien Dsunt er on Case eshte it is turned on) 
and transfers the variable(s) value(s) to it. 


put LST <FN>; 


Poggi the printer on (providing it is turned on) 
ea eter = the data contained in the designated 
ile 7 


Bee SEN> 2 (b,c...); 
Opens the designated file <FN> and stores the 


ees () value in the file. The file <FN> is 
automatically closed upon statement termination. 


hg <a i cg Se cc oS a aS 


SS a 


| 
: 
| 
| 
| 
| 


Figure B.5 SAMPLE PUT STATEMENTS. 


be. EEITOLI Types 


The error messages associated with the PUT statement are: 
MESSAGE: 

Deveees "Chi" Or "Est" "or a file Nate was 
expected, but ssss was found at llil. 

EXPLANATION: 

"'ssss" is the token that was found prior to the 
power, "lI in the Gdnput line. The word ‘put’ must be 
followed by the name of the devic2 on which the data is to 
be written. 

MESSAGE: 
Filename -- (<FN> (.<FT> J) -- was expected, but 


ssss was found at lill. 
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EXPLANATION: 

"ssss" is the token that was found orior to the 
pomnt "Lill" in ¢he input line. A file name may be up to 8 
characters long and optionally prefaced by a drive desig- 
Mator (one letter followed by a colon). 

BESSAGEs: 

Filetype -- (<PN> [.<FT>]) -- was expected, but 
ssss was found at 1111. 

EXPLANATION: 

"ssss" is the token that Was LOUNd DELTCE Loe. )] 
Beant “1111" in the input line. A file typ2 may be up to 3 
Characters long and must be prefaced by a pericd. A fsbe 
type only appears after a valid fils name. 

MESSAGE: 

Undefined identifier, ssss at pppp in line: 1111 
EXPLANATION: 

"Ssss" is the token that was found prior tc the 
point "pppp" in the input line "1111". A value must be 
defined for any variable before it can be output. Be sure 
that all designated variables are set to some value before 


they are referenced. 
c. Usage Constraints 


Tf the data is being put to a file, that file is opened in 
append mode. Therefore, if a new file is desired, the user 
must ensure that any previous file with that name is erased 


prior to executing the PUT statement. 


4. The IF Statement 





The IF statement executes a set of statements based on the 
logicai value of the IF clause. If this value is true (not 
0), the THEN group of statements 1s executed. feoher ro 
clause value is false (0), the ELSE group of statements is 
executed. The ELSE group is optional. If it does not exist 
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and the IF clause value is false, the entire IF statement is 
ignored. 


Ae Format 


An IF statement must Le of the form: 


'af' <logical expression> 'then' <statements> 


Where the word "IF" is the keywori and must be the first 
word in the statement. "IF" is followed by a logical 
expressicn. This expression must b2 contained within paren- 
theses and may be any valid combination of logical operators 
Meese, Gt, ne, le, ge), logical functions (and, or, not) 
variables and numbers. Precedence of operations is d2ter- 
mined solely on the bases of parenthetical grouping. 

The logical expression nust be followed by the 
word "THEN" and the group of statements which will be 
axecuted if the logical expression 1s true. Tits: © lpmoe 
statements terminates either with the word "ELSE" or the 
word “ENDIF. 

If the legical expression is false, the THEN 
queup of catements is skipped and the ELSE group is 
executed (if it exists). The IF statement terminates upon 
@etection of the word "ENDIF;:". Figure B.6, illustrates the 
IF statement format. 


b. Error Types 


The error messages associated with the IF statement are: 
MESSAGE: 

An IF statement must have a logical expression 
acewppp ein tines Lill 
EXPLANATION: 

Toe pot 1s the polies2n eet le eu. ne eee 
which a logical expression was expected. Check for matching 


varentheses. 


oe 





ae 2 ee ee ee ee ee ee eee eee ee ne oe ae eee ee eee eee 


. 
| 

T= <loga cak Pel SER oy then 
| <statements 
| lse 
| <statements> | 
| endif; { 
| The logical expression DorcHen 15 tested Earst. (it | 
mm cele, =he statements in the THEN portion {any RSCL | 
{ statements) are executed in order. The statements | 
i contained in the ELSE (optional) portion are 
executed only when the IF condition returns false. | 
The IF statement is terminated by an ENDIF. | 

| <a | 
ee in sana ay a ss cy ee rent aie mee 





Figure B.6 SAMPLE IF STATEMENT. 


MESSAGE: 

THEN was expected but ssss was found at llll. 
EXPLANATION: 

'ssss'" is the token that was found prior to the 
Born. “pppp". The THEN clause is mandatory in an IF state- 
ment. Be sure that all dasignatei variabies are set before 
they are referenced. 
BESSAGE: 

ENDIF was expected but ssss was found at llll. 
EXPLANATION: 

'tissss" is the token that was found pricr to the 
pont Oppp. An IF statement must terminate with the word 
MENDI Fe". 


c. Usage Constraints 


There are no usage constraints for an IF statement. 


5. Th 


iD 


QOP Statement 





The LOOP statement repeats a set of statements a specified 
number of times. Any number of repetitions may be specified 


via either a number constant or a variable entry. 


a2 





Ge ES eee 


A LOOP statement must be in the forn: 

‘loop’ ( <identifier> | <number> ) <statements> '‘endloop;' 
Mrete the word "LOOP" is the keyword and must be the firs+ 
word in the statement. "LOOP" is followed by either a 
number or an identifier which gives the number of times the 
loop is to be executed. The loop checks this vaiue before 
execution. If the loop value is <= 0, the statements in the 
loop are skipped. Otherwise, the inner statements are 
repeated until the loop counter reaches 0. The loop counter 
cannot be changed once the loop has begun executing. Even 
if the identifer used for the loop counter is altered, the 
ioop will not be affected. Figura B.7 illustrates the LOOP 
statement fornat. 


| 
| 
| 


loop a 
<statements> 
endloop; 


The variable “a" contains the number of 
iterations that the statements contained 
Within the loop will be executed. Any 
combination of valid RSCL statements 

is allowed. 


LO: 7 
statements 
endloop; 


C—O Fe 


The oniy difference in this statement is t 
counter is in integer form vice identifier forn. 
The loop execution sequence is not altered 


a ay SE ee  _ ay e ee  cee 


@ 


| 
| 





Figure B.7 SAMPLE LOOP STATEMENT. 
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b. Ecror Types 


The error messages associated with the LOOP statament are: 
BHESSAGE: 

Undefined identifier, ssss at pppp in line: 1111 
EXPLANATION: 

"ssss" is the token that was found prior «o the 
point “pppp" in the input line "1111". A value must be 
defined for any variable before it can be used as a loop 


counter. Be sure that all designated variables are set 
before they are referenced. 
MESSAGE: 


An integer or variable loop count was exvected 
kut ssss was found at lill 
EXPLANATION: 

"ssss" is the token that was found prior to the 
pont Lilie: A locp counter can only be an integer or an 
sdentifier. ; 


c. Usage Constraints 


Nested loops cannot be used. 


mE > aa ESS a ge a= Ep ARs 


The CASE stat2ment executes a set 9f statements based upon 
she case variable. If one of the cases matches the value of 
+he case variable then that set of statements is executed. 
If none match, then the OTHERWISE set of statements is 


executed. 
ae Format 


The CASE statement must be in the form: 
'case' <identifier> ':' case num 
fotherwise:' <statements> ‘endcase! 
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Where the word "CASE" is the keyword and must be «he first 
word in the statement. "Case" is followed by an identifier 
and a colon. This is the case variable. Each of the case¢s 
that follow begin with either anumber oran identifier 
followed by a colon. This value is compared with the value 
of the case variable. If they are equal, then all the 
statements in the case element (up to the next case number) 
are executed. If no case number matches the case variable 
then the statements in the otherwise clause are executed. 
The CASE statement is terminated with the word "ENDCASE" and 
a semicolon. Figure B.8 illustrates the CASE statement 
fergat. 








—_ fag a tin ran 
|} case a: 
bs: <statements> | 
c3: <statements> 
| 6; <statements> | 
otherwiss 
endcase; | 
| The case statement uses a variable or an integer : | 
|} to indicate which case element will be invoked. I 
The "a" represents the data type of the case 
element index. If none of the case elements are 
invoked then the otherwise case element is 
executed. Any valid RSCL statement is allowed. | 
eS ED SD SS AD OE ES ES TST ASD DEED SRST CONES SESE J 





Figure B.8 SAMPLE CASE STATEMENT. 


b. Error Types 


The error messages associated with the CASE statement are: 
MESSAGE: 

Undefined identifier, ssss at pppp in line: 1111 
EXPLANATION: 

"ssss" is the token that was found prior to the 


fomemurppo' in the input lane "1111". aA value must be 


ape 





defined for any variable before it can be used as a loop 


counter. Be sure that all designated varialbes ar2 set 
before they are referenced. 
MESSAGE: 


“= 3 -= was expected but ssss was found at pppp. 
EXPLANATION: ) 

"Ssss" is the token that was found prior to the 
point "pppp"., A case variable must be followed by a colon. 
MESSAGE: 

OTHERWISS was expected but ssss was found at 
PPPP- 

EXPLANATION: 

"ssss" is the token that was found prior to the 
perns *pppp', A CASE statement must include an OTHERWISE 
clause to handle the event when no labled case value was 
matched. 


c. Usage Constraints 
There are no usage constraints for the case statements. 


7. The CREATE Statement 





The create function was not coded because the interfaces 
between the CLI and display modules is unknown. The create 
module was designed to interface with a commercial product. 
mie peEoduct is still enrout’ to the school. When coded the 
create module will assign attribute values to specified 
fields. The resulting template is then utilized for data 
display through the display module. 


8. Ihe DISPLAY Statement 





The dispiay function was intended t*9 be an external commner- 
cial product purchased from a local vendor. Unfortunately, 
the supply system was uncooperative and the oroduct never 
arrived. As designed, display manager takes the output data 
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and transposes it onte the requested screen shell created in 
the create module. | 


F. GENERAL ERROR HANDLING 


The system and syntax error handler messages are formatted 
as follows: 
(@**** SYNTAX or SYSTEM ERROR *€*€*#!t) 
(ERROR MESSAGE(S)) 


MESSAGE: 

Symbol table exceeded. 
EXPLANATION =s 

The maximum length of the symbol table was exceeded, too 
Many variables in the program. 

BESSAGES: 

Premature end of input encountered. 
EXPLANATION: 

The program ended without a proper terminator i.e. END. 
Program could be in the middle of a command when the input 
terminates. 

BESSAGES: 

Unrecognized character, ssss in line: 1111. 
EXPLANATION: 

"Ssss", a non ASCII type token, was encountered prior to 
the spedmt "lil" in the input line. 
MESSAGES: 

String length excceds (132) in line 1111 
EXPLANATION: 

Miemeoken prior to the point "1111" ian the input line 
exceeds the maximum sring length of (132). 

HESSAGES: 
PROGRAM was expected, but ssss was found at llll. 
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EXPLANATION: 


Program's must Start with the constant "PROGRAM" 
followed by the program name. 
MESSAGES: 


AN IDENTIFIER was expected, but ssss was found at line 
iba 
EXPLANATIONS: 

This could have several meanings. LHS's of let state- 
ments require an identifier (variable). Data file reads also 
require a variable to receive transfered data. 

MESSAGES?; 

END. was expected, but ssss was found at line llll. 
EXPLANATION: 

An input following a statement must be eitner ancther 
statement or an (END.). 

MESSAGES: 

No legal Command Language statement was found pricr to 
mie peint Jill in the input line. 
EXPLANATIONS: 

This error message is only invoked during the first 
statement following the program names. 

MESSAGES: 
expected at ssss in line 1ll1ll. 
EXPLANATION: 
Semicolons terminate all statements. Check the statement 


at the indicated line. 
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4/* R & S Command Lancuage 


* 


* Last 
x 


update: 


ABEESCIX C 


PROGRAM SOURCE CCCE LISTING 


22 Sep 1983 


SESE ESEL SSS SSS SEC TSS SSC CSTE SSSCCCOCCCSCCTCCCCT CTC ETS" 
CONSTANT DEFINITIONS 


x 
*/ 
tdefine 
tdefine 
gdefine 
s$define 
tdefine 
tdefine 
tdefine 
ecefine 
sdefine 
tdefine 
sdefine 
tdefine 
tdefine 
tdefine 
define 
#define 
$define 
tdefine 
tdefine 
tdefine 
tdefine 
define 
tdefine 
tdefine 
define 
tdefine 
#define 


eepuaq Q 
Cebuacase 0 
debuaget 0 
@eoyolft 0 
Gebuclet 0 
debucgloor 0 
debucput 9 
Gebuastate 0 
false 9) 
true | 
maxsym a5 
devsiz 15 
linesiz 132 
LoopermStusiz 10 
Strang@siz 132 
symsiz 10 
optors1z 20 
eoprandsiz 40 
FOCFILE Soba 
NEWLINE EQ 
Im oroken { 


Str.token 2 
int.etoken 3 
arith.opitoken 
loq.wop.token 
oat Ut) CeO GEN 
other token 


SD UI 


* 


REST CTECCSCCSCSCSSCSCESCLCCESCSCSCLSCSCCCLSSSCE STC SSCS CEST SCLC CCS CL SCS STS 
GLOBAL VARIABLE CEFINITIONS * 


* 
*/ 


FILE 
char 
enar 
cher 
ehar 
char 
ehar 
char 
ehar 
char 
char 


AVEC pe £1 ey 
/* file name for loop statements*/ 
/* device name for cut & get */ 
/* device name for cut statement*/ 


¥Foutput, *input, *source, 
LOOPLFILE£20), *looecptr; 
Sav.dev(devsiz]j; 
cut.dev(devsiz2): 


getidev(devsiz):; /* device name for get stateranter/ 
symtype; /* type of "symbol I or C€ / 
symid({€svmrsiz], *idptr; /* @oetual "Symbol char strina x / 
strinafstringqsiz), *sptr? /* ehnaracter string */ 
token(symsiz), *tpetr? /* actual token char string x / 
line(Clinesiz), *lpetr: /* Cvurrenec LHAeve jie x / 


loorulstl[locpwlstwasiz] (linesiz];/*statements repeated in loosx/ 
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Te Beetttttststs & 
Waarai a : 
. ; j 
| aT , aS 


a 





int 


iLiehis 
iot 
iLig he 
tpt 
igs 


Moco. ent § 


tokenitype; 
symval; 
numsym; 
exp.result; 
opr.value; 


meruct { 


ener idlsymsiz), 


int value: 
char type? 
} symboll(maxsym), *symptr 


*sidptr; 
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/ * 
/* 
/* 
/* 
/* 
/* 
/ * 


/* 
/ * 
/* 
/* 


ae Statement counter, used */ 
VY getliné to rereat statermnt*/ 


type of token =/ 
value of symbol * / 
Number of svmbols active */ 


result of arith expressions x / 
precedence values of arithioct*/ 


Symbol tatle 3 
symbol name “yf 
symbol value x / 
Symbol tyre (I or C) */ 





+ + 0M 0 4H OH OM OM te 


+ 


x 


This is the main routine for the Command Language Interereter, 
Tt calls "statements" to precess all other statements. 
If main completes successfully the interetreter exits. 


Funetions used: error(!1/12/14/51), next, Statements 
Glebal used: token, teken.type 
Constants used: id.token 


Authors: Dennis J. Ritaldato 
Last update: 22 Ser 1983 
/ 


tinclude <stdia,n> 
Pemicuvudce "“aqlobal.intercr” 
Main () 


{ 


MeoereoriLE{O}] = ""*3 
Stereey CHOOPSFILE,"LCCPZZZZ" ); 
loecpecnt = 03 4/* init looe counter 
nursym = 0? /* init symrol table 
cmmece = fonen("RSCL™,*r"): /* epen source file for 
/* command lanquage feroaram 
next); 
{f£ (€ strempe(token,"PRCGRAM") ) 
Mrpror (ii); 
mext(): 
i# ( token.wtype != id.atoken ) 
error (12); 
rext():; 
if ¢ ! statements() ) 
Srrer (51)? 
en ( mtremp(token,"END") ) 
error (14)3 
next()3 
feettonen(oO) != °,°%) 
error (14); 
@mit()? 
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*/ 
m/ 
= 7 
*/ 





i a a, ee | 


Sd 


x/ 


oeatements checks the token te detérmine if it is a reservéd word 

indicating the becirning of a cemmand language staterent. 

feet oUmG the correscondine functionis called to process tre 

statement, Ther statement calls itself to look for fore statements 

and returns true, 

Functions used: case.statement, create, display, error(53), 
L1f.statement, let.statement, loop.astaterent, next, 
put.statement cet.statement, 

Glorals used: tcken 

Canstants used: none 


Authors: Dennis J. Ritaldato 
Last updates: 19 Ser 1983 


tinclude <stdio.h> 


Pain 
sta 
{ 

tif 
eri 


clude "“qlobal,interr" 
tements (€) 


debuastate 
ntf("Entered statements with taken of %5.0,token); 


tendif 


aL 
{ 


} 


f { stremp(Ctoken, "LET") ) 
next): 
let.statement()? 


else if ( !stremp(token, "IF") ) 


{ 
} 


next(); 
ifustatement(); 


else if ( !streme(token, "BUT") ) 


{ 
} 


next(): 
rutestatement(); 


else if ( !stremp(token, "GET") ) 


{ 
} 


next()3 
get.statement(); 


else if ¢€ itstreme(token, "LOCP") ) 
{ m@xtc): 


} 


loop.astatement(); 


else if ( !stremp(token, "CASE") ) 
{ next); 


} 


case.statement(); 


else if ( tstreme(token, 3") ) 
{ next); 

BLE deébia 

printé(" COMMENT found.0); 

farndif 


while ¢€ stremp(tceken, "3") ) 
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next): 
) 
else if ( !stremeC(token, 
{ next(): 
Gisplay(); 
} 
elise jf ¢€ !stremp(token, 
{ next (): 
create()? 
} 
else 
return(false) 
if ¢€ teken{0] ! 
error(s3); 
mext()? 
statements();3 
return (true); 


+ 
a 
= it } 


eDlcr rat) 


Bere s Te) ) 
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) 


/* boveass 


: 
id 


*/ 





identifiers 
{inteaers 
strings 
logical ops 
arith ops 
logical funcs 
others 


EQ | 
a 
AND | 


LT | 
et 
OR | 


Functions used: 
Gleotals used: 


error (4), qetl 
ne, Ltr, 
Lice Scecnt, 
See, Ser ing,e tec 
Constants used: aritniop.token 
leOqg.OcaFOken , 
heogecunc. token 
Dennis Ritaldato 


22 Sep 1983 


%e 0% HM MH MH HH HH OH HH he a Hh hl lh UR 


Authors 
Last update: 


* 


x/ 
#*ineclude <ctyoe.n> 
tinclude <stdio.n> 


include "aleobal.,interp" 
next () 
{ 
int i = 03 
oer = token? 
teptr = NULL? 
token.tyoe = 0; 
{f# (€ (¥lotr == NULL) JI (¥lptr 


getliine(); 


NET | 
any other ASCII character 


Leas oer; 


The scanner scans the ineut stream tor tokens which are either: 
@alenazalgenanum | 
digit sintecems 
anything excecot ; 
GT | 


Ne | DEO i Ge 
/ 


CON 


{re 


loqwftunc, loopSsent, oot e wes, 


lostu1$toour,; 


Ken, tokenwtype, tetr 
» Le.token, imt.itokers, 
cther.token, stratoken, 


symsiz, 


/* Lf end of line 
2=z NEWLINE) ) 
/* aqet new line 


*/ 


=/ 
/ 


mn 
*/ 


) 


while (€ (¥*¥lptr z= ” °) Fl ClisaseLic*lptr) ) )/* skie blanks 
4 ( (*lptr 2s NULL) I! (C#letr 22 NEWLINE) ) /* if end of line 
getline (); /* get new line 
else 
++1ptr; 
) 
if € isalpha(*lptr) ) 4* is token an identifier? ¥*/ 
{ fer ( 41 = O: isalpha(*lptr)!! isdigit(*#lptr) Il (*1lptr == °.2");3 
{f ( i++ < symsiz ) 
*tptre+ = uprer( lptrete )3 
*tptr = NULL? 
#' ( '!log.opr() S& flog.fune() } 
token.type = id.taken; 
return? 
) 


else if ( isdigit(*letr) ) 
(eWmpeme CC isdigitc*letr) ) 
*Erptre+ *lotr++; 
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/* is token an integer? */ 








ctecimr = MULL: 
tekenutyoe = 
return; 
) 
Switch (*lptr) { 
eace °"%s 
setr = string: 
tekenutype = stritoken;: 
#+lptr; 
Ber (1=03 (*lptr 
(ent € *lotr 
gGetline(); 
T€ Ci++ < strinesiz) 
*sptre+ = *¥letr; 
else 
error(s); 


int.wtoken; 


4/* 15 token a char string? +7 


NULL ) 


oe eee + eee) 


/ 
*/ 


/* {ff end ef litte 
/* aet new line 


} 
aed Oe Ts 
*sptr = 
return; 
case °+%: case ’e= 
oor.value = 13 
tekenutysoe = arithwoputoken; 
*totres elptres+3 
eeotr NUCL? 
recur; 
case °*%’: case 
emr.value = 
tekenwtyce = 
*totr++ 
—ect Yr 
re@wurn? 


/* beyprass secend " ¥*/ 


NULL? 


a4 /* is token an aritnmetic opo?*/ 


sal £ e e 
23 

Pe tehc Oc. coker - 
¥lptret; 
NULL? 


case 
cese 
case 
case 
casé 
este 
case 


@ o 
Cage 

@ we 
{°: 
91% 6 
e 2 

rd @ 
%°s 
Ter es 
Pm% o 
e 


0 6 
= ° 


case 
case 
ease 
case 
case 
case 
case 


teken.wtyoe = 


@ | o e 
@ ) @ e 
A @ e 
oa @ ¢ 
_- td e 
a @ e 


G9%VH«@ 
e 


case 
case 
case 
case 
case 
case 
case 


es» &8© 8 8 8&8 @& & 


other.toaken 


@> Mes es 
e %* 8 &© & 8&8 & 
2@ 00 6@ 8@ 6@ 0 a0 


qq — & 


=e 


case 
case 
case 
case 
case 
case 


@¢ @@ @0@ @0@ e6@ 8¢ 


/*is token another symbol?*#/ 


*totre+ = Flotret+;3 
*totr = NULL? 
returns: 
defaults 
/*error(4);*/ 
#if detug 
print£("eeUnrecognized char te with value ¢%d found,.0,¥*lptr,*loetr); 
tendif 
Vet r++: 
next c); 
Tecurn: 
>) /* end switch */ 


SS 






ij | 
a) Be : 


, ave 7 _ 


7 


| 








/* and next */ 
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* 

¥* Getline reads the next line either from the input strear 
ereewaey 1OOF counter, "lcopi.cnt" is 0 or from the loor statement 
aoeese, “M“loooilst* if the loop covnter is areater thar 9. Ge 
* decrements the looe counter each time a line is read, 
* Fach line read, regardless of source is placed into an array of 
* characters called "line", 

* If an ECFILE is ernceauntered an error message is printed out and 
* the orogram termirates, 

* Cthnerwise, the line pointer is reset to tne heainning of the 
fetne and the function returns. 
* 
x 
x 
* 
x 
x 
* 
* 
x 
* 
a 


Funetions used: error(3) 

cmremars, “sede line, letr, loop.cnt, loopu.list, loom. 1lStcnt, 
POOCE.LStaptr 

Constants used: arith.or.token, id.token, int.token, 
log.funcitoken 


Author: Dennis Ritaldato 
Last vodate: 22 Sec 1983 


/ 
getiine() 4/* pegin getline */ 
{ 

fee i: 


for (i=0: {£ < linesiz; i++) /* clear line buffer x / 
linefli) = NULL? 


Mec loep.cnt > 0) /* read from therloop List? *7 
{ 
je@c foets(line lin@siz,lcco.fille) =2 EGFILE ) 
{ felose(loorifile); 
{f£ C=-lLoop.wcnt > 0 ) 
{ looowfile = fopen (LOOP.FILE, “r");3 
fgets(line,linesiz,lecrciwfile); 
} 
) 
ieeor = Line; 
return? 
} 
else if ( source != NULL ) 
{ 1£C fgets(line,linesiz,source) == EOFILE )/*read from file RSCL*¥/ 
error(3);3 
if derug 
print£t("=-Source line read.9); 
tendif 
} 
else 
{ 4£ € gets(line) == EOQFILE ) /* read from the terminal */ 
e@rror(3); 
if debusc 
printft(*--CRT line read.G)? 
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sendif 
} 
if debug 
printft("--Tne new line is: %*s0,line); 
sendif 
lcptr = line; 
recurn; 
) /* 
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end getline 


*/ 





+ 0% MH MH + 


x 
x 


Ueeer converts 2a lower caSer ASCII charact@r to upper case ASCII. 
Any characters which are net lewer case ASCII are ianored, 


Btemor:s Dennis J. 
¢ 14 Sep 1983 


Last update 
/ 


upper(c¢c) 


{ 


} 


Guar *C?; 


mo ¢ (ha <= 
¥ec = ¥c ¢ 
pecurn(*c): 


*c) && (¥e <= 


nc ag 


Ritaldato 


ees 


o2%) 
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/* if lowercase */ 
/* convert to uppercase*/ 





/* 

* Loag.wopr examines the current token to determine if it is 
™ Wocicel orerator, 

x If so, it sets the tokenityre acecrepriatelyv. 

* 

* Authors: Dennis J, Ritaldato 

* Last updates: 15 Ser 1983 

*/ 

loq.opr() /* peagin logeocr 
{ 


mec Strien(token) != 2) 
return(false)? 
tetr = token; 
semcen(*totr) { 
case °’E’s: 
me C*¥++tptr i= °Q*%) 
return(false); 
breax} 
Cale wen °s 
me C*++tetr its °E*%) 
return(false); 
break; 
case °G’%s: case “°’L’%: 
{# € C#eetptr i= °T’) S& C¥eetetr 
return(false); 
break} 
defaults 
return(false); 
) 
token.tyse = logwor.token; 
return(true); 


/%7ehd loquopr 
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oe / 


*/ 





Loqa.efunc examines the current 
megica] function cceratecr, 
be so, it sets’ the token.tyce 


ae 0 8 0H tH 


Authors Dennis J, Ritaldato 

* Last updates: 14 See 1983 

*/ 

loq.func() 

{ 

tf ( (istremp(token,"AND")) | 
Imes creme (token, "NOT")) | 

mecoken tyce = logqifuncitoken 
return(true): 

} 

return(false); 


| 
| 
e 
v 


} 


yo 


teken to determine if it is a 


agpcropriately. 


/* p@gin loaafunc 


(!stremp(token,"OR")) 
C'stremo Ctokmen,”"°CON")) ) 


/* end loquwfune 


*/ 


my / 








This procedure adds a new symrol to the symbol tarle. 
Increments numsyn 
creates a new symrol tatle entry with the values contained in 
svTrid, Symval ard symtype 
return 
muchor: Dennis J. Ritaldato 
* Last updates: 13 Sec 1983 
x/ 
*@include <stdio.h> 
finelude “qlobal.interr" 
addsym() 
{ 
mnt i; 
{f (numsym > maxsyr) 
emror (2); 
symetr = &symboll(numsymes+) ; 
for (i203; symidf{ilis’ °; +41) { 
symptr => {d(1) symid(il; 
syrotr =-> value symval; 
symetr => tyre symtype; } 
Sif debug 
print£éC("ADDSYM entered. Numsym = 3d0,numsym); 
gendif 
return? 
) 


M4 0 0 0 MH OH 
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* This procedure assigns the value contained in symval to tfe 
* symbol indicated Fy symptr. 
* Authors: Dennis J. Ritaldato 
* Last update: 13 Ser 1983 
*/ 
#include <stdio,n> 
#ireludce "global.interc" 
setvalue() 
{ 
symotr => value = symval; 
return? 
) 
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LCOKUP searches the symbol table for a matcn on symid and 
eyamol id, If found, 
set symptr, symval and symtype from tne contents of the 
SYmbol table, return true 
else 
symptr, symval and symtype remain unchanged 
returns false 
Authors Dennis J. Rtialdato 
Last updates: 13 See 1983 


+ Uh Hh 7H MH HM OH MH 


+t 


*/ 
#include <stdio.n> 
finclude "global,interr" 
lockur() 
{ 
amt is 
for (symptr = &symeol(O); symetr <= (Symbol + numsym); ++sSymptr) 
for (is03; syrotre>id(ij == symidfils ++1) 
ae Csymid(ijJwea= ° °) { 
symval = symetreovalue; 
symtype = svymptreotyce; 
return (true): } 
return (false); 
) 
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/* 
*Tnhis funetion assiqnes values to variables. The LHS (left hand side) 
* variable must he an identifier. The only excection is wher a string 


* {s assiaqned ther the LHS variagtle is the glottal array string. RHS’s 
* can he either an expression, {ntecer or a declared identifier with 
* a value of the identifier stored in the symbol tartle. Expressions. 
* of any length are accerted, Unary minus operations are not 

* supforted in this version, 

* 

* Functions used: addsym,error(12/18/55/57), expression, lookup, next 
* setvalue 

* Globals used: expuresult, symid, symtype, symval, token, token.type 
* Constants used: iditoken, intutcken 

x 

* Author: David J. Smania 

* Last Update 22 Ser 383 
*/ 

fineclude <stdio.h> /* Link standard I/C */ 
#ineclude “gqlobal.intergs" /* link al11 program constants */ 
Grar operator lorctorsiz]; /* Ceelare letestatement variables *¥/ 


char savetype; 
int operand{foprandsiz]? 
int a,bo,m,n,marker,lastiprec;3 


let.statement () 
{ /* Entering let statement x / 
char savetoken(symsiz]; /* Declare local variables */ 
int sav.value,addflaq? 


*if debug 
Printf(C"LETISTATEMENT entered.0); 
tandif 


/REKAKREKEEKAKEKRERES EVALUATE LEFT HAND SIDE ## EE REEERERERER EEE ERE KEES / 


if (tokenwtyce != id.token) /* Check for identifier *x/ 
{ 
error (12)3 /* Error token not identifier x / 
return? 
) 
else 
strepy(savetoken,token); /* Save token name */ 
next ()3 
if (Cstremp(token,"=") == 0) /* Check for = token */ 
next (€): 
else 
{ 
error(i8):; /* Missing °=° operator */ 
return: 
} 
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ASEKEKEKEEEREERESEREEERER RHS CHECK KEE RRR ERE KER EERE EERE EER EREKE / 


/* 


x The axpression function first determines if the RHS is an 

x expression. If so, then it evaluates the expression and 

a eemurmomtre "regult toretp.result. Error checkina {s cerftcrmed 
peernroungout the function. 


*/ 


{£ Cexcression ()) 
Sav.value = expiresult; 


else 


if (tokenityce == id.tecken) 


{ 


strepv(symid,teaken)? 
mE (loekvip ©) ) 
{ 


Sav.aValue = symval; 
Savetype = symtyre; 


else 


error (55); 


next ()3 


) 
else 


if (tokenityfe == intuwtoken) 


} 
else 
{ 


Savetype = °I°%; 
Savevalue = atci(token); 
next ():3 


(token.type == Str.token) 


symryoe = °S*%3 
next ()3 
streopy(syvmid,savetoken); 
mH (! loekup ()) 
{ 
symval = 03 
addsym ()3 
return; 
} 
if (symtype == °S”%) 
Remurns 
error (57); 
return; 


error(24)3 
return? 


} 
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/* Cheek fer 2nd arq = expression *¥/ 


/* Exp result saved 


/* Load symid for lookup 


/* Save variacle value 
/* Save variacle type 


/* Variaple not in symbol table 


/* Save integer value 


/* Net exe, string, id, int 


x / 


af 


<7 
7 


¥/ 


*/ 


7, 


AKFEKEKKEEKEREREREKEKESER STRCPY CHECK FR EKKAKEKR ERE KER EEK ERE KEE EE ES / 


strery(symid,savetoken); 
1 €lookuo ()) 
Lf (savetype == symtypre) 


{ 
Symval = savivalue; 
Ssetvalue ()3 /* 
} 
else 
meror (57); 
else 
{ 


symval = savivalue; 
Syttype = savetyce; 
addsym (): 

} 


7* Gao symid fon lockurc x / 


Assign values to symbol table variables#*¥/ 


/* Variable not in symbol tattle */ 


/* Add anew variable to symbol tablet/ 


el 








/REKKAKRATEKKREKEREKEE EXPRESSICN FUNCTION #44 8K EKER KERR EEE EEE / 


/* 


% 0% 8% 0 OM OO Ot Om Or 


* 
~~ 


EXPRESSION determines if the teken is a valid arithretic 
expression. An arithmetic expression is defined as a term 
orftLlonally followed by 2 arithmetic eperator and a sucexpression, 
A term is either an expressicn, an identifier, a numeer or a 
string. A subexrresion is a term optionally followed by an 
orerator and a subexpression, 

If a valid expression is feund, it’s value is stcred in the 
Varbaraie “explresult® and true is returned, Ctherwise falsé is 
returned, 


Pumceloms wsed: error(22/50), leokup, next, cop, eushocratot, 
crushidorperand, set.aprec 

Glotals used: expcresult, sytid, symtyoe, symval, token, token.type 

Gomstaernts usedis arithiop.token, id.token, intutoken 


Authors: David J. Smanta 
Last Update 22 Ser 8&3 


exeression () 


{ 


Mm 
A 


03 
03 


Pes.c.prec = 0? 


1f (CStreroctoken,"(€") == 0)) /* Cheek for °(° lead cf samc 
{ 
pushoprator ()3 /* Pusn °C% on stack */ 
next (€);3 
me” (token. tyre 
savetype = “’] 
else 
if (tokenityre == id.token) /* Check for identifier RHS 3/7 
{ 
strepy(symid,token); 
HM Chookue ()) 
savetyrce = symtyce> 
elise 
savetype 


== Seer Gikien ) /* Cneck for integer RHS */ 


Gs 


} 


/EREREEEKERKKEKRKKKKEK POOP THROUGH RHS HEE KEKKRERKEKEKK EKER EEE EEE / 


wnile (token(0) != °3°%) 7* Goon wntdil °:* Ls read x / 
{ 
it Cetreme(token,"™(") s2 0) 
{ 
susnosrator ()3 
Next C7; 
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} 


else 
aa oe == 0} 7* BHCC BOO FTOUtine’s x / 
oe) MG) 
Setcocree (): 
next ()$3 
} 
else 
a Ctekenutype == {idutcoken) /* Lookuo identifiers */ 


Serepyecsyria,taken) : 
ec! lookure ¢€)) 
Pirenor (55): 


else 
{ 
pDushidorerand (); 
Wext (); 
} 
) 
else 
if (token.wtype == intutcKen) /* Push integer tokens */ 
{ 
symval = atoi(token); 
pushintoperand (); 
mext (€); 
} 
else 


/* ChecK operator rerecedence */ 
1£ (tokenutype == arithioruwtoken) 
VeetCeneeck.pri (€)) 
{ 
pusnoprator ()?3 
nest (©) > 


else 
{ 
pop ()3 
setuprec ()3 
) 
else 
error (21): 
} 


J/RRERREER EERE ERAEEAK END WHILE LOCPD 88 € EKER ERE REE EKER EEE REE EE 


ff (Coperator(0] = °C*) S& Coperator[i] = *%)%)) 
{ 
expiresult = orerand[--m];3 
symval = exporesult; 
return (true); 
} 
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else 
error (22); 
} 
else 
return (false); 
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A/RERESKKEREKERKKERE EUSH INTEGER FUNCTION RK RKEKKERER KE KREREKE EKER EE / 
/* 
* This function pushes tne irncommina integer token onto the stack 


* orerand(m). 

x 

* Author: David J. Smania 

* Last Updata 25 Sertemrbper 83 
¥/ 


pushintoperand () 
{ 


operand(m] = atei(token); 
++ 717 
} 


/EKARERKEKREKEKEEKEREEKE PUSH IDENTIFIER FUNCTION 88 * EK EERE EKER EREK/ 
/* 

* This function cushes the identifier value operands onto the 

stack cperard(m], 


Author: David J. Smantia 
Last Updata 24 Sertember 83 


“N 3 0 HH 


pushidorerand () 
{ 


operand(m] = symval; 
++m3 
} 


/RAREREEEEKEKREKEREE PUSH OPERATOR FUNCTION BERR EKREERRKKEEEEKEEREREE / 
/* 
* This function pushes the incomming cperatecr onto the stack 


* operatorin), 

x 

* Author: David J. Smania 

* Last Updata 23 Sectember 83 
*/ 


pushoprator () 
{ 


operator(n] = token{[0); 
++n3 
} 
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/REKERKEREREKKEREKE CHECK PRIGRITY FUNCTION ¥KKEKEEKERKEREREKE REE EE / 
/* 
* Check the incomina orerator frececdence with the existing hiqnest 
* precedence, lastuprec, value. YVedify if incommirsg is greater. 
x 
* Author: David J, Smaniat 
* Last Update 23 Sertember 83 
*/ 


cemceopri () 
{ 


Peecoorecvalue > lastuoréc) 
{ 
lastapree = onravalue; 
marker = nm} 
return (true)? 
} 
else 
if C€orr.value == lastuwprec) 
Peturn (true); 
else 
return (false); 
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ASESAKEETESASCATTAR eee eRe FCP FUNCTICN 38a eeeeeeeaeezaeeecerexresassezerx/ 


/* 


Ss For Whe opereters and operands efé& thedr 


* according to the tieexken read, 
> Authors David J. Swania 
* Last Lodate 23 Secrermber §3 


pec () 
6 
int i,d¢dore;: 


gore = G@; 


° 
eer; 


1@ (streme(ctowen,*)*) == 0) 


Oo 


while (operater(a}] != °(%) 
{ 
sem; 
a> cperanc(a)]; 
soem > 
b = operand(=); 
omeck.toaken ()7 
} 
else 
wAile (n >= marker) 
{ 


a 
of 
=e 


eperand(:); 


ee) ee ee | 
2e 


operand(™); 
Ck. welwern (33 


oot1ewmw s 
= 


return: 
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wt OR 


/% Pee until lewer 
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/HKKESEEKEEEREKEEEREKEEKE SET PRECEDENCE KEE RKEKEREKAKKHE EKER EERE KE REE / 
/* 

* Set the precedence variable lastwecrec to the nignest rrecedence 

* ofrerator in the stack oreratcrin]. 

* Author: Navid J. Smania 

* Last Urdate 23 Sertember 83 
*/ 


Set.Prec () 
{ 
at i,dorre; 


dene = 4; 
++n3 
eperatorin] = teken{(0);3 
for (€is03 cC€C(Ci<=n) && (€!done) && (operator(i) != °)%))3 i++) 
{ 
{f CCoperator(i]) == °+") JI (Coperator(ij] == °%=%)) 
{ 
last.prec = {13 
done = true; 
marker = {3 
} 
else 
last.wprec = 03 
) 
return: 
) 


/RSERREEKERKERKKEKEREEASE PERFORM ARITHMETIC 484 8K EEEERERE EERE RER ERK EXE / 
/* 

* Perform arithmetic operations Eased on operator(n] found. Store 
results in operand[(m], 


Authors: Cavid J. Smranta 
Last Update 23 Septemper 83 


“46 46 4 


* 


check.token () 


{ 
if Cooerator(n] #2 °+°) 
{ 
overandim) = Ca + &6)3 
++m} 
een; 
} 
else 
if (operator(n] == °’e”%) 
{ 
operand(mr]) = ¢€b = a)} 
++m3 


awl) > 
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} 
else 
Mme ‘Coperatar(n) == 
{ 


orerand(m] = 
++mr3 
-==-F;3 
} 
else 
if (operatori[n] == 
{ 


cperand(m] 
++m 3 
sen; 
} 
return; 
} 


J/RERREKKEEKRKEREREEKEXE END 


eee) 


Coy gel) &; 


"apres 


(eb / a)? 


LETASTATEMENT 84 ¥R EKER EEE REE REE EKER KEE KK SE / 
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/* 

* This erocedure receives data frem either the screen (CRT) or a 

Pe resrtoe@nce fille, Tre function first cf®eks for the user’s mecuested 

* disclay device then responds te the user’s data requests. Two 

* types of data inout requests are available to the user: from a 

* fille on the user’s disks or a variarle stored in the svmble taphle, 
* Glokhal varlable savidev stores the user’s device reauest,. 

x 

* Funetion used: next, error(20/56), device, idiwlist, addsyr 

* Gletals used: savidev, getidev, string, sptr, svyvmtyre, symrval, 

input 

* Constants used: NULL, stringsiz 

b 4 

* Authors: Navid J. Smantia 

* Last Update 22 Ser 83 

*/ 

include <stdio.nr> /* Link standard I/0Q */ 
firclude <ctypoe,h> /* Link integer check reutine */ 
include "“gqlobal,intercp” 4* Link all croaram e¢anstants *¥/ 
char savetype; /* Declare local variables */ 


int Savaval: 


get.statement () /* Entering qet statement x / 
{ 
int had; /* Declare get variables ¥/ 
#if debua 
Drintf£C"GETISTATEMENT entered,0); 
gendif 
{f# (! device()) /* Check for device token * / 
{ 
error(20); /* Invalid device type */ 
return: 
} 
strepy(aetidev,savidev); /* Save device name in getudev¥/ 
{f# (stremp(getudev,"CRT") ==0) 
{ Whihe CidiVist (€) ) 7* Loop until idilist is @mpty*/ 
{ 
if (savetyre == °S”%) /* Check saved token type x / 


gets ( strino );3 
else if (savetype == °I%) 
{ 
scanf (" %d",&symval); 
setvalue ()3 
) 
else {f (savetvpe =z °C%) 
{ 
symval = qetcnar(); 
setvalue ():;3 
} 
else /* Tdentifier is unknown x/ 
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) 
} 
else 

i 

{ 


) 
else 
{oun 

wh 

{ 


gets(strina): 
Shier = String; 


Cree ea-faise, CC ssotr f= NULL) S& (*sptr != ° *) 
&& (C!boad) )3 ++sptr) 
1f ¢€ ! isdiqit(*sptr)) 4* Is input a digit <7 
bad = true? 
{tf (!bad) 
{ usymtycpe = "T°: 
svmva] = atoicstring); 
‘ 
else 
{ {££ (Strlen(string) == 1) 
{ symtype = °C’; 
symval = token(9];3 


else 
symtyoe = °S’; 
} 
addsym()3 
} 
next ()3 4/* pypass input varlacle x / 
4/* end of while loop «/ 
Cstremp(get.dev,"LST") ==0) 


BErOr (55); 7* Invaiic qevice inout a7 
return(false); 


Fut = foepen(setidev,"r");3 /* Qpen flle to read only x / 
mle. Cidiist () ) /* Loop until itdwlist is empty */ 


if (€ savetype == °S’) 
foees ( gstringe,strinesiz,input ): 
else df (Csavetyoe =a, 71") 
{ fscanf (input," kd",&symval); 
setvalue(); 
} 
else if (Savetyce == °C’) 
{ f£seanf (infut," *e",Ssymval); 
setvalue()?3 
} 
else /* jdentifier is unknown */ 
{ 
fscanf Cinput," ¢s",string); 
Socr = suring; 


for (Coadafalezé? ( (*setr != NULL) && (*8ptr t= ’ %) 


&& (fbad) )7 ++sptr) 
Ve>C ! Hedicit (gsptr)) /* sine ut 4.digit? */ 
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rad = true}; 
if (!tad) 
{ symtyce = °°? 


Symval = atoi(string); 


} 

else 

Tere mOSeErLencstrc ing) 
{ $ymtype = °C’; 


symval = token([0); 


) 
else 
symtype = °S°%3 
} 
addsym()? 
) 
next (€)3 
) 
} 
2if debugsget 
Brantcfcvat end of GET, token 
gendif 
return: 
) 
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nH) 


/* pypass input variacle 
/* end of while loog 
/* end of file crocessina 


%s0,tcken);3 


/* end get.statement 


=/ 
x/ 
x / 


ard 





/HREEEHKEKREEKEREKEKEEREREE TOLL IST FUNCTION 8K ERERERERE REE KEKE REE RES / 


/* 


% 


5 ad 
C9 96 0 0 Ot 


Bie a 


{ 


} 


The id.wlist function checks if the input variable is already 
ageclared in the symeol tatle. If true, it saves the data type for 
tyoe checking. A data tvee of °U"° undefined is set ctherwise. 


Function used: lookup 
Glotals used: svyvmtyre, token 
Comstants used: id.itoken 
Authors: David J, Smania 

Last update: 22 Sep., 1983 


list () 


if (token.wtype != iditoken) 


return(false); 


strery(symid,token); /* Place token in symid for lookup check*/ 
wet lookup (€)) 

savetype = symtyre; 7* Save token type for latter comparison*/ 
else 


savetype = °U’: 


return (true); 


/RERRERRKEEARESERE END GETOSTATEMENT 8488 R ERE EERE EERE KHER KEKE RE EE / 
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~ 
“N 0 0 4 0 0G tt OO 


bs 


PUTLSTATEMENT outputs to either the sereen (CRT) 

er the printer (LST) data stored in a variable a 
BPtring or se file, The f€unetion first cheeks for the 
appropriate display "device" then responds to the 
users data requests. Two tyres cf data requests 

are avallable: a variable stored in the symbol table; 
or a string, Glokal variables cutuadev, symval and 
savetyoe store the device name, the token value and 
token type respectively, 


Functions used: next, error(25), list, device, 

Glotals used: outcut, dutidev, savidev, string, 
token, token tyfe 

Constants used: none 


Authors: David J. Smania 
Last Update 22 Ser 983 


Sinelude <stdio,h> /* Standard I/C link * / 
hincludée “qloep4al.interp" /* Link a1] program canstants *¥/ 


char savetype; /* Declare local variables */ 
int Savaeval: 


Put.statement () /* Entering put case statement */ 
{ 
if debug 
printf("PUT.STATEMENT entered.0); 
endif 
{# (€! device()) /* Creck for device token */ 
{ 
error(25)3 /* Invalid device type x/ 
Becurns 
} 
Strepy(put.dev,savidev); /* Save device name */ 
Lf (Cstremo(put.dey,"CRT") ==0) 
{ ££ ( !stremp(teken,"SKIP") )/* Skip a line */ 
4 erint#("0); 
next¢)s; /* bypass SKIP * / 
} 
wre (litst (¢€)) 7* Leop uneli list is Germinated*/ 
{ 


#if debuaput 
Printf("eeList returred true with token = %50,token); 
tendlé 


if (savetype = 
putcs(string) 
else 
i€é (savetype == °T”%) 
printf ("td ",sav.val)3 


= °S’) /* Checks for token tyre */ 
; 
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else 


Prine Getee s./saveoveal)s 


/* end while list 
/* end {Lf CRT 


next ();3 
} 
} 
else 
mee ustrermeCout.dev,*LST") sad) 
while (list ()) 
{ 
Printft("togaling printerd); 
next (€);3 
} 
else 
{ 


#/ 
77 


4/* QCpen fille with ’a’ attribute*/ 
ecutput = foren(cutudev,"a")3 


if debuaput 
erintt("™Ooening new file 
fendif 
ner ( 
wernt s (0) § 
next); 


} 
whime’ Clist ()) 
{ 
if (savetypre == °S’) 
fputsCstring,;cutput); 
else 
if (savetype z= °T°%) 
roc inet CoutHnut, +a 
else 
PesintetCouceut, **¢ 
rext (); 
} 
fclose(outfut); 
} 
4if debuqput 
preneftO"At end of put, 
tendif 
Fewurn: 
} 


token 


%s0,futedev)?; 


/* bypass SKIP 
/* Leoer until list empty 


7* Checks for token type 


",Savenval)? 


",Saveval);3 


/* Close data file 


= 8s0,token);3 


91 


'stremoctoken,"SKIP") )/* Skip a line in the file ¥*/ 


a7] 


ae 


*/ 


x/ 





JEKEHEEKERERERERERAKKELIST FUNCTIONS FREER EERE EER ERK EERE KEE / 
/* 


* The list funetion checks fer the ecutfrut token suprlied rty 
* the user, The cerrespnonding teken data values are stecred 
* aooropriately for later comcarisen. 
* 
* Functions used: next, error(55), lockup 
* Glortals used: string, symid, symval, symtyoe, token 
* Constants used: id.token, int.tcken, stritoken 
x 
* Authors: David J. Smanta 
* Last Update 22 Sec 83 
*/ 
list () 
{ 
L{£ (tokenitype == intuteocken) 
{ 
Savuval = atoi(Ctoken); /* Save token value */ 
savetype = °T°%; /* Save teken tyre */ 
rPecurn "Ct rue) 
} 
if (tokenuwtype ss {iditoKken) 
{ 
/* Place tekken in symid for lookup check */ 
strepy(symid,token);3 
it © AooKkup ©¢ )) 
{ 
/* Save token tyre for later comparrison */ 
savetype = symtynre? 
Ssaveval = symval; /* Save variable value */ 
return (true); 
} 
error (559? /* Unidentified variable */ 
return (false)3 
} 
if (tekenwtype == str.token) 
{ 
savetyre = °S%3 
return (true); 
} : 
return (false): /* Error no match x/ 
) /* end list */ 


JEREEKEREKAEERESEKEND PUTISTATE MENT SERRE ESE EEEEERERERE KER EKE SEER KEE / 
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~ 


a ee ee ee i  o 


Dev) Cemeetermin@s if the current token is a valid 
T/C device name, A valid device is defined as either 
MERTY@ for themuser’s conscle, "LST" for the line printer 
or a filename, The file name is structured accerdine 
to the file namina conventions cf the CPM operatina 
system, That is, a name enttlonally creceeded by a ane 
character disk drive designatcr with a colon and 
eetionally followed by a vericd with a three character 
file type, 

If a valid device is found, it is stored in the 
varifable "savidev" and true is returned, Otherwise, 
false is returned, 


Functions used: next, error(26/30) 
Gletals used: savuidev, token, teken.type 
Constants used: id ietaken 


Author: David J. Smania 
Last Update 22 Ser 83 


+ 


¥include <stdio,h> 
guneclude "cqlobal,interp”" 4* Link all program canstants *¥/ 


AHREREREKREEEEKKERECESKES DEVICE FUNCTION 88 REEE EERE KE EKKE KER EE / 


device () 
{ 
#if debug 
printfc*DEVICE entered,90)3 
fendif 
if (token.type != 
return (false); 
meemcestremp(token, "CRT™) == 0) || CstrempCtoken,"LST") ==0)) 
{ 
ff Gepnudput 
Printft("*-edevice = %50,token); 


id.token) 


tendif£ 
strepy(savidev,token);3 /* Save display type */ 
next ()3 /* geycass CRT | LST */ 
return (true); 
) 
strepy(savidev,token);3 
next (€)3 /* bypass fname | drive ¥*/ 
{# (strempo(token,"3:") =20) 
{ 
streat(savideyv,token)? 
rext ()? /* bypass 3 x / 


{f (tokenuctype != idutoken) 
return (false); 
streat(savidev,token)?3 
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next (); /* bypass fname x7 


} 
ime €Stremp(token,”.") ==0) 
{ 
Streat(savidev,token) 3 
next (): /* pypass , */ 


Te Clok@n type '= iditeken) 
return (false); 
Streat(sav.dev,taken); 
next ()}3 /* pypass ftyce */ 
} 
return (true); 
) 


JREEERKREREAEAEEEKERESEAEEEK END CEV ICE 8 KK KEKERK KEE RE KER ER EEE 
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IF STATEMENT executes a set Cf statements based on the 
legical value of the the IF-clause. If this value is 
tree (not 0), the THEN-croup cf statements is executed, 
Tf the TFeeclause value is false (CC), the ELSEeqrouo of 
statements is executed, 

The ELSE-qreue {fs orticnal. If it does not does not 
exist, the entire IF statement is skipoed,. 


Functions used: next, error(16/17/27/54), statements 
Globals used: token, tokenutyre, symid, symval 
Constants used: symsiz, leawopatoken, loaqwfuncutoken 


4% 0% 0 0 HH Ot OU OO 


Author: Dennis J, Ritaldato 
Last update: 22 Seo 1983 


+ 


*/ 
include <stdio,r> 
#irclude "qlobal.,intersp" 

moe LOgGaresult = 0; 

wt eerm = OF 

int sub = 0; 
if debuceif 
int level = 0; 
ferdif 
{f.staterment () 
{ 
* {f debug 
DPrintEC"*IFISTATEMENT entered,0)? 
* endif 

meee )ogG.exo() ) 

{ error(54);3 

return: 

} 
if debugif 
Printfé£(*=eloguresult at level 4d is %d.0,level,loguresult); 
tendif 

me CLOG. result) 

{ ££ €( stremp(token,"THEN") ) 

{ mrror(i16)3 
return; 


if debucif 
Printfé("*=eTHEN found.0)?3 


#fendif 
next); /* eypass THEN * / 
statements();3 /* execute then clause */ 
/* skis else clause */ 
while ( stremp(teken,"ENDIF*) ) next)? 
} 
else 


/* skip then clause * / 
mete (€ streme(toeken,”"ELSE") ) next(): 
Sif debucif 
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Brintft("=-ELSE found,.0); 
tendif 
rext(): 
statements()? 
) 
eG stremp(token, "ENDIF") 
{ @rror(ti?7); 
return; 
) 
next()3 
return? 


/* 
/ * 


) 


/* 


/* 
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ryrcass ELSE 
execute else clause 


rycass ENDIF 


end ifuistatement 


+7, 
*/ 


*/ 


* / 





LOGLEXP determines if the current tekken is a logical 
expressiom, A logical expressicn is defined as a 
logical term, ortionally followed by both a logical 
ererator and @ leai¢cal subrexpressicn. Tre entire 
logical exoression must be enclesed in parentneses, 

If a loaqi¢cal expression its feurd, it’s value is 
stored in the variable “loq.wresult" and true is 
returned, Otherwise, false is returned, 


% 3 0 0 OM OH OH OU hh 


Authors: Pennis J, Ritaldato 
Last updates: 22 Sec 1983 


+ 


*/ 
logwexe() 
{ 
icteimé’ = O, rhs s 9; 
char orerator(symsiz); 


#if debuaif 
printf (*Entered loqiexp.0)}3 
tendif 
im. "Cstremp(token,"(*) ) 
return(false)} 
next(): /* bypass a 7 
#1£ derualif 
Printf£("eemeLeft paren found for Level td, ",level¢+); 
printf(" New tcken is 80,token);3 
tandif£ 
meee . Log.term() } 
return(false); 
*if debugif 
Crintft("*envenIn loaqwexf, log.aterm returned *%d ",term); 
Printéc" with token %8,0,token); 
Printf£("esenmand tokenityre of %4,.0,token type); 
feandif 
lnhS = term? 
{@ € (tokenutype == logwop.atckKen) 
tf) (¢tokenutyee == Lloqufune.token) ) 
{ strepv(operator,token);? 
mext(); /* byeass Operator ¥/ 
Sif debugif 
printf£("eeeeLogical expreession operator, %s, found.,0,operator); 
gfendif 
re) (i “s@ibpoloa() ) 
return(false);3 
Enso SUC? 
loo.result = compute(lns,coperator,rhs); 
*1if£ dehuaif 
printf£(**wxeeComoute returned ¢d.0,legeresult); 


tendif 
emcees cemo(Cteken,”")™) 3) 
{ next): /* ctypass ")" */ 
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#if debuaif 
Printf("-"-Right paren for level $d compound expression.0,level); 
printé("=ewith next token of %8.C0,tcken); 
tendif 
return(true)? 
) 
else /* matching right paren not found */ 
{ error(2:7)3 
return(false); 
) 
) 
else if ¢€ !strempCtoken,")") ) 
1 loqwresult = lhs; 


next): /* bypass ")" x / 
return(true):;3 

) 

else /* matching right paren not found ¥*/ 


Srror(27)3 
return(false); 
} /* end log.exp x / 
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ad 


x/ 


SUBLLCOG determines {Lf the current token iS a logical 
Subextression, A sub exrression is defined as a 
boos caleterr, octionally tollowed by a logical c¢perator 
followed ey either a loaical surexoression or a 
logical expression. 

If a loaical surexpression is found, it’s value is 
stored in the variable "sub" and true is returned, 
Otherwise, false is returned, 


SwG.log() 


int lns = 0, rhs = QO} 
char orerator({symsizj; 


*if€ debugif 
Peantt("Sntered ‘'subuilog.0); 
tendif 


femec !: logiGerm() ) 


return(false); 


lns = term: 
i# € (token.wtyrce Js 
{ 


LOg.oPp.teken) 
1 


&& (token.wtyre OdetiunesGoaren,. 2 


5 Sub = ilns; 


return(true); 


strepy(operator,token); 

next():; /* bypass operator */ 
{# € subsloa() ) 

{ rns = Sur; 


Sub = compute(lhs,ocerator,rhs); 


#if debugiéf 
Printt("*e=e2e2Tn sub.log, subsled returned $d.0,sub); 
tendif 


return (true); 


et 100.45 0C) > 
{ rns = log.wresult?3 


¥if dehuaqif 
pPrintf£(t**eeeeIn subslog, loguexp returned £d.0,rns); 
tendif 


Sub = comnute(lhs,operator,rns)} 
return (true); 


return (false); 


/* end sub.log od 
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LOGJTERM determines if the current token is a term 
in a logical expression, A term is defined as a 
legical expression, an identifier or 2 number, 

If a term is found, it’s value {s claced in the 
Glohal variable "term" and true {s returned, 

* Otherwise, false is returned, 

*/ 

loaqa.term() 

{ 


ae M0 MH 0 


wit Gebugqif 
Peince ("Entered Leguwterm,0): 
tendif 
meek -LOognexp() ) 
{ term = loguresult; 
return(true)?; 
) 
Lf (€tokenitype == id.itoken) 
{ streev(symid,toeken); 
lookup(); 
term = svyvmval; 
next (): /* pypass tdentifier 
rerm = symval?; 
sif debugif 
Printt("*e-eeTdentifier value 4d was found.0,term); 
tendif£ 
return(true)? 
} 
tf Ctokentyee. == Int.token) 
4 term = atoictoken):; 
next ()3 /* pypass integer 
*if debualif 
Crintf£("s2-eeInteger value td was feund.0,term); 
tendif 
PeGcurnA (trues) > 
} 
return(false); 
} /* end loa.term 
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/* 
* COMPUTE performs the operation scecifiedq in the 
* tarameter “ac" and returns a value of true or false, 
* / 
compute (1ns,op,rrs) 
foe l1ns, TNs, *OC; 
{ 
#if debugif 
Brainct(*%Entered corsute with %d &£s %¢.0,1ns,¢0,rhns)? 
tendif 
mec. stremo (on, "EQ") ) 
weve. Ss == Fhs ) 
returnctrue); 
return(false); 
) 
mmcwrscerermp(on,"LI™) 2 
woe: Cins < rhs) 
return (true) 3 
return(false); 
} 
me eC lstrempa(or,*GTs) ) 
{ if (lns > rhs) 
return(true) 3 
return(false); 
} 
merc 'strcempcoe, *NE") ) 
wee (is i= ERs) 
return(ctriue); 
return(ftalse); 
} 
io 8strempCoo PYLE") ) 
cee Cins) <= res) 
BOGUEn CETUS) ? 
return(falsé); 
} 
eee se stremp(oo, "GE") ) 
Gere et ins) >= CAs) 
returncerve)? 
return(false); 
} 
Sf © tetrewstop,"AND") ) 
weve Cine & rns) 
return(true); 
return(false); 
} 
item stremecoe,"0r*) ) 
{vit Cinws) | rhs) 
return (true) ; 
return(false); 
} 
ots etempDCob, "NCT™) ) 
return(€ !ihs )? 
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} 


PMRecssteremo(op, "CON*) 

( BUESCCON is net. yet 
return(false); 

} 


) 
implermentedC); 


/* end comcute 
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CASELSTATEMENT executes a set of Statements cased 

upen the case variatle. If one of the cases matches 
the value of the case varitlakble, that set of staterents 
is executed. If none match, the otherwise seat of 
Statements is executed. 


Functions used: leokup, next, case.nunm, 

error(23/31/32/32/55), statements 
Glohals used: token, tokenityre, symid, symval 
Constants used: iditoken, int.tcken, 


Autnors: Dennis J. Ritaldato 
Last update: 22 Sec 1983 


eLvaw rms tdio.,h> 

clude "qlobal.intereg" 
mt caseval? 
e@e.jStatement () 


debug 
rintfé(" CASELSTATEMENT entered.0);3 
aif 
f (tokenatyre == iditoken) 
strepy(synm1ld,token);3 /* get case variable */ 
mt. ( ! Neexuet) ) /* and save its value x/ 
% mror(s5): /* undefined variable */ 
return} 
) 
caseval = symval; 


else if (token.type z= intitoken) 


caseval = atoi(token); 


else 

{.-error(23); /* not integer or vaiable */ 
return? 

} 

next(): /* pypass case variable x / 


me Cestrempo(token,":") ) 
{ @Pror 31); 


} 


return} 


next); /* bypass : + / 
1f ¢€ ! caseawnum() ) 
{ if8€ sgtremp(towen, "OTHERWISE*) ) 


{ @rfYror(32); 
return; 
) 
mext(); /* pypass CTHERWISE */ 
ot. SieremoctoKcen,"3") )} 
{ error(31);3 
return} 
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} 
Pert): 4* pypass 3: a7 


Statements(); 
) 
mee Cw anereme (token, “@NDCASE") ) 
1 error t33) : 

Eecurn: 


) 
next()?; /* bypass ENDCASE */ 


} /* end casecstatement x / 
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CASELNUM executes a set of statements based upon 

the case variable, If one cf the cases matches 

the value of the case variarle, that seat of Statements 
is executed and true is returned, 

Ctherwise, false is returned, 


Functions used: lockur, next, case.num, error(s55), statements 
Glotals used: token, tokenutyre, symid, symval 
Copscvanws usec: id.token, int token, 


Author: Dennis J. Ritaldato 
Last update: 22 Sep 1983 


include <stdio,h> 
case.wnum() 


{ 


mic found: 
int savevals: 


mone Cfound=f£alse; (CstrempC(tok'@n, "OTHERWISE")!'20) & (! found); } 


"if debuocase 
Bernice ("==insid@ for loop.0): 
tendif£ 


{f (tokenitype == iditoken) /* maybe an identifier */ 
{ strepy(symid,token):; 


#if debuacase i 
Printéc"An identifier token, 8S, was found.0,tcoken); 


tendif 
nextc); /* pypass identifier */ 
Teac Hetrempttoken,":") } 
{ next); /* bypass : */ 
HEY Yalcokur() ) 
‘aemrorts>) ° 
return(false); 
} 
{f (caseval == symval) /* eneck this case {tem */ 
found = true; /* acainst the case value */ 
) 
} 
else if (token.tyfe == int.tcken) /* maybe an integer */ 


{ saveval = atoi(Ctoken); 


#if debuacase 
Printf£("=-An inteaqer case option of td was found.9,saveval); 


fendif 
nextc); /* bypass inteaqer */ 
Tfa0 Setremoctcken,":") 3 
{ next): /* bypass 3 */ 
if (€(caseval == saveval) /* check this case item x/ 
foune = true; /* against tne case value */ 
} 
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} 
else /* 
mmniie eGstrcme<token,™:") ) /* 
Rex ted) 3 
if debuacase 
printf£(""="No valid case num was found.0): 
fendif 
next); /* 
) 
} /* 
#if£ debuacase 
MmminctC"==End of for loop.0); 
tendié 


tt 6 ! Gourd ) 
return(false); 
Statements();? 


while ( stremp(teken,"ENDCASE") ) /* 

next (); /* 
return(true) 3 

) /* 
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must not be the crorer ¥#*¥/ 
caisie so skip rest cf line*/ 


DYEasSS ; */ 


endefor x / 


skip remaining statement?/ 
in the case x / 


end-caséecnum 77 





Leop repeats a set cf statements a shecified number 
of times. Any number of repetitions may be specified 
via either a number constant cr variable entry, 

Only one level of looprira is imelemented in this 
version. To imelement multifble levels, change the 
loop.ufile variable name to an array. Then step 
through that array. 


Mumetions used: next, *error(23/55), lookup 

Globals used: loor.went, symid, syrval, loopwfile 
tonen, tokKencot ype, string, sor 

Constants used: intutoken, id.teken, linesiz, NULL, 
LOCPIFILE 


t+ 04 HH 0H HH HH OH Hh a ll hl hl le 


Authors: Dennis J. Ritaldato 
Last updates: 22 Ser 1983 


% 


*/ 
#include <stdio.h> 
*inelude "glohal.interp" 
locoestatement () 
{ 

mnt seaveccnt = 0:3 


*if debug 
Print£c"LOOS STATEMENT entered,0);3 
#fendif 
if (€tokenwtype ss iditoken) 
{ strerpy(synid, token); 
me ( lookup() ) 
save.cnt = symval;3 
else 
error(55);3 
) 
else {f ¢€ token.atyre == intitcken) 
save.cnt = atoi(token); 


else 
{ error(23);3 
return? 
) 
next): /* bypass loop count variable 
/* NOTES 


/* Each line must terminate with a NEWLINE character, 


/* Linwlen should always soint te tris NEWLINE character. 


7, 


m7 
57 
x / 


/* Except, when addine a string, the NEwLINE 1s added at the*/ 


/* and of each line ard at the end cf the complete strina. */ 
loop.file # foren(LCGPLFILE,"w");3 
maile { "streme(Ctoken, "ENDLCOB"™) ) 
{ Lf € tokenwtype != str.ateken ) 
{ fputs(token,looowfile); /* add identifier/number to file*/ 
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puted "0, loop. file)? 
} 
else 
{ f€outs(" 
foes sel ing, Loob. fi le); 
£OuUt Sie“ 
) 
next(); /* eypass current token 
) 
loopecnt = savecent: 
felese(loopr.file): /* close as write file 
/* reopen for input 
ect t  tef= fopen(LCCPLCFILE,"*r")3 


#if debualoocr 
Printft("\-In loor, byrcassing teken %80,token); 
rendif 


next(); /* bypass the word “ENDLCOP" 


$if debuqloor 
printft("=}=eLeaaving loce with token %s0,token); 
fendié 


return3 
/* end loop.astatement 
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#include <stdio.h> 
Sireivdce “gqleobal.interce" 
create () 
{ 
print£é(" CREATE entered.0); 
while (Ctoxen[0] != °7°) 
mextcd); 


) /* end create 


tinclude <stdio,h> 
tineclude "qlobal.interce”" 
disolay () 
{ 
eprintféc" CISPLAY entered,.0); 
while (token(0) != °3°) 
next(); 


} 7/* ena Gisipay 
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Error performs error processing, Oependina on the input 
parameter "tyre" a message is orinted at the vuser’s console 
and the function elther returns or terminates the proaram, 


%e hu MH HM MH 


Autnors Dennis J. Ritaldato & David J, Smantia 
* Last updates: 22 Sep 1983 
x / 
#include <stdio,n> 
Pome lude “Gglobal.interr”" 
error (type) 
int tyre; /* ERROR TYPES ARE: */ 
{ 
if (type <= 10) 4* 1°19 System errors x/ 
{ printf ("**** SYSTEM ERROR **%** 0); 
switen(tvpe) 
{ case 13 
Q@xit): 
ease 2:3 
Printé c"Svmrbol table exceeded.0);? 
exit); 
case 33 
Printfé ("Premature end ef ineut encountered,0); 
exit); 
case 4:3 
promee (“Unrecognized charectér, wc, in line:0,*¥iptr); 
Srinte ("4590, line )? 
PeCuUrNs 
case 5:3 
Cmte © strima. Jencth exceeds td in line:0,stringsiz); 
Printé ¢€"4s0,line); 
exit); 
case 63 
printf("Unable to open file = check <FN> is capitalized0); 
exit); 
return? 
} /* endcase * / 
) /* endif 119 */ 
else {f (type <= 50) /* if 11859 Reserved word */ 
{ print£é ("**** SYNTAX ERRCR **#**% 0); /* Syntax errors x / 
switcn(type) 
{ case ii: 
Printfc"PRCGRAM") 3; 
break: 
ease 123 
PrintfC"AN ICENTIFIER")3 
break; 
case 143 
Prince co ENE." ) 3 
break; 
case 163 
Brome © ol HEN) 3 





break; 
case i7s 
Prumet ("ENDIF") 3 
break; 
case {83 
Onin: tC" *).: 
break; 
case 20: 
Printf£("Device ’CRT’ or a filename"); 
break; 
case 21: 
Printf£C"™AN ARITHMATIC CPERATCR")s: 
break? 
case 223 
Printfc "AN ARITHMETIC EXPRESSION") 3 
break; 
case 233 
Primtft( an integer or variable loop count"): 
break; 
case 243 
Printf£("An integer, identifier, string or expression"); 
creak; 
case 253 
Srince "bLevice “CRIT” or °LST’® or @ f£llename"); 
break} 
case 263 
cCrintfé("Filename e= (<FN> (,<FT>)) == ");3 
break; 
case 278: 
Print£( "a= ) ea")3 
breaks; 
case 303 
Orint£é("*"Filetype == (<FN> (,<FT>]}]) =="); 
break; 
case 31: 
Printé£(te=s 3 we")3 
break; 
case 32: 
Print£C"CTHERWISE")3 
CPréak > 
case 333 
Print£C"ENCCASE");3 
break; 
defaults: 
Crimes. ch $$$S$$ SYSTEM ERROR # 1 = &d $SSSS$ ",type); 
printf (€" PLEASE NOTIFY EITHER DENNIS J. RITALPATO (215) ")?3 
orint#é (744122107 CR DAVID GY. SMANIA (408) 6468182, 0)73 


return; 
} /* endcase */ 
Srimitcft (€" was expected, but $s was feund at #8,.0,teken,letr); 
while ¢€token(0O) != °37) /* skiod remainder of line */ 
nextc)3 





return: 

} /* erdif 11-30 +7 
elise if (type <= 70) 
{ switen(type) /* 1f 51270 General syntax */ 

{ case 513 /* errors * / 
Printf ("No legal Command Language statement was found"); 
break: | 

Case 53:3 
Siamese C's expected"); 
creak; 
case 54:3 
Crint£c"*An IF statement must nave a logical exrressicn"); 
break; 
case §5: 
Printf£(*Undefined identifier, %s ",token); 
break; 
case 56: 
Printft("Cannet read from the list device"); 
break; 
case 57: 
Printf("BData type mismatch. A String type was expected"); 
break; 
case 58:3: 
return; 
ease $3: 
return; 
case 503 
return; 
default: 
Pprinté c¢"sssss SYSTEM ERROR # 1 = $d $SSSS ",type);3 
Printf (€" PLEASE NCTIFY EITHER DENNIS J. RITALDATO (€215) ")3 
Printfé ¢" 441-2107 CR DAVIE J. SMANIA,. OO)? 
return} 
} /* endcase x / 
Crimes €" at ists in linesiti2s0,lctr,line); 
while ( stremp(token,"3;") ) next ():/* skip rest of line */ 
} /* endif 51-70 */ 
/* end error */ 
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